;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'treemacs-customization) #@354 Stores the value of `treemacs-eldoc-display'. The value is set to nil and stashed here with every log statement to prevent the logged message being almost immediately overridden by the eldoc output. The value is also stashed as a single-item-list which serves as a check make sure it isn't stashed twice (thus stashing the already disabled nil value). (defvar treemacs--saved-eldoc-display nil (#$ . 122)) #@117 When set to t `treemacs-log' will produce no output. Not used directly, but as part of `treemacs-without-messages'. (defvar treemacs--no-messages nil (#$ . 536)) #@56 Restore the stashed value of `treemacs-eldoc-display'. (defalias 'treemacs--restore-eldoc-after-log #[0 "\302\303\304\"\210@\305\211\207" [treemacs--saved-eldoc-display treemacs-eldoc-display remove-hook pre-command-hook treemacs--restore-eldoc-after-log nil] 3 (#$ . 704)]) #@65 Temporarily turn off messages to execute BODY. (fn &rest BODY) (defalias 'treemacs-without-messages '(macro . #[128 "\300\301BB\207" [let ((treemacs--no-messages t))] 4 (#$ . 988)])) (put 'treemacs-without-messages 'edebug-form-spec t) #@98 Print a log statement with the given PREFIX and MSG and format ARGS. (fn PREFIX MSG &rest ARGS) (defalias 'treemacs--do-log '(macro . #[642 "\300\301\302\303\304\305\306 \307\n\nBBFE\310BBBB\207" [progn (unless (consp treemacs--saved-eldoc-display) (setf treemacs--saved-eldoc-display (list treemacs-eldoc-display))) (setf treemacs-eldoc-display nil) unless treemacs--no-messages message "%s %s" format ((add-hook 'pre-command-hook #'treemacs--restore-eldoc-after-log))] 14 (#$ . 1232)])) #@92 Write an info/success log statement given format string MSG and ARGS. (fn MSG &rest ARGS) (defalias 'treemacs-log '(macro . #[385 "\300\301BBB\207" [treemacs--do-log (propertize "[Treemacs]" 'face 'font-lock-keyword-face)] 6 (#$ . 1731)])) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-log lisp-indent-function 1] 4) #@94 Write a warning/failure log statement given format string MSG and ARGS. (fn MSG &rest ARGS) (defalias 'treemacs-log-failure '(macro . #[385 "\300\301BBB\207" [treemacs--do-log (propertize "[Treemacs]" 'face '((:inherit warning :weight bold)))] 6 (#$ . 2073)])) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-log-failure lisp-indent-function 1] 4) #@85 Write an error log statement given format string MSG and ARGS. (fn MSG &rest ARGS) (defalias 'treemacs-log-err '(macro . #[385 "\300\301BBB\207" [treemacs--do-log (propertize "[Treemacs]" 'face '((:inherit error :weight bold)))] 6 (#$ . 2444)])) (byte-code "\300\301\302\303#\304\305!\207" [function-put treemacs-log-err lisp-indent-function 1 provide treemacs-logging] 4)