;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\301\307\310&\210\302\311\312\313\306\301\307\314&\210\302\315\316\317\306\301\307\320&\210\302\321\322\323\306\324\307\314&\210\302\325\326\327\306\324\307\330&\207" [require eldoc custom-declare-variable eldoc-in-minibuffer t "Turn on eldoc in minibuffer." :group :type bolean eldoc-in-minibuffer-show-fn 'eldoc-show-in-mode-line "A function to display eldoc info.\nShould take one arg: the string to display" function eldoc-show-in-mode-line-delay 12 "The time we show eldoc when Emacs is idle." number eval-preferred-function 'pp-eval-expression "Preferred function to use with `M-:'." lisp eldoc-in-minibuffer-own-frame-p nil "Whether minibuffer has its own frame or not." boolean] 8) #@48 List of active minibuffers with eldoc enabled. (defvar eldoc-active-minibuffers-list nil (#$ . 1148)) (defvar eldoc-mode-line-rolling-flag nil) #@169 Store minibuffer buffer name in `eldoc-active-minibuffers-list'. This function is called by each minibuffer started with eldoc support. See `with-eldoc-in-minibuffer'. (defalias 'eldoc-store-minibuffer #[nil "\302\303 !r\304\216\305@\306\"\210\307 B\211+\207" [save-selected-window--state eldoc-active-minibuffers-list internal--before-with-selected-window minibuffer-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord buffer-name] 3 (#$ . 1299)]) #@62 Enable eldoc support for minibuffer input that runs in BODY. (defalias 'with-eldoc-in-minibuffer '(macro . #[(&rest body) "\301\302\303\304\305BB\306BBE\207" [body let ((timer (and eldoc-in-minibuffer (run-with-idle-timer eldoc-idle-delay 'repeat 'eldoc-mode-in-minibuffer)))) unwind-protect minibuffer-with-setup-hook 'eldoc-store-minibuffer ((and timer (cancel-timer timer)) (setq eldoc-active-minibuffers-list (cdr eldoc-active-minibuffers-list)))] 6 (#$ . 1825)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-eldoc-in-minibuffer lisp-indent-function 0 put edebug-form-spec t] 5) #@63 Return the current buffer prior to activating the minibuffer. (defalias 'eldoc-current-buffer #[nil "\303 p\304\216\305\306 \307\"\210\310\n\203\311 \202'\312\313!\203%\313\314\315 \"\202'\316 !+\207" [#1=#:old-buffer #2=#:old-frame eldoc-in-minibuffer-own-frame-p selected-frame #[nil "\302!\203 \303\304\"\210\305 !\205 q\207" [#2# #1# frame-live-p select-frame norecord buffer-live-p] 3] select-frame last-nonminibuffer-frame norecord window-buffer selected-window fboundp window-in-direction above minibuffer-window minibuffer-selected-window] 4 (#$ . 2442)]) #@57 Display string STR in the mode-line next to minibuffer. (defalias 'eldoc-show-in-mode-line #[(str) "\303r\304 q\210\305\302!\210\306 P\307\n!\210)\310 *\207" [mode-line-in-non-selected-windows str mode-line-format nil eldoc-current-buffer make-local-variable " " eldoc-maybe-roll-message-in-mode-line force-mode-line-update] 2 (#$ . 3024)]) (defalias 'eldoc-maybe-roll-message-in-mode-line #[(str) "\306\307\310 !! G \nV\2036\f\2036\311\312!\205> \313\314O\211\315 Q\316\314!\210 G\313W\203 \202\316\314!\210\311!+\207" [max str len tmp-str eldoc-mode-line-rolling-flag mode-line-format window-width get-buffer-window eldoc-current-buffer sit-for 0.3 2 nil " [<]" force-mode-line-update eldoc-show-in-mode-line-delay] 4]) (defalias 'eldoc-mode-line-toggle-rolling #[nil "?\211\207" [eldoc-mode-line-rolling-flag] 2 nil nil]) (define-key minibuffer-local-map [C-M-right] 'eldoc-mode-line-toggle-rolling) #@42 Show eldoc for current minibuffer input. (defalias 'eldoc-mode-in-minibuffer #[nil "\306\307 !r\310\216\311@\312\"\210\313 +\211\n\235\205`r q\210\314 )\211\205@\315\316!r\fq\210\317\216 c\210db\210\320\321!\204=\322u\210\323 +\324 \325 !\206T\326@A@\"\211\205_!,)\207" [save-selected-window--state buf eldoc-active-minibuffers-list str-all #1=#:temp-buffer sym internal--before-with-selected-window minibuffer-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord buffer-name minibuffer-completion-contents generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] looking-back ")\\|\"" -1 eldoc-current-symbol eldoc-fnsym-in-current-sexp eldoc-get-var-docstring eldoc-get-fnsym-args-string info-fn doc eldoc-in-minibuffer-show-fn] 4 (#$ . 3953)]) #@50 Eval expression with eldoc support in mode-line. (defalias 'eval-expression-with-eldoc #[nil "\205 \306 \307\310#\311\216\312\313\314\315\216\316\317 \"\210\320 !-\207" [eldoc-in-minibuffer eldoc-idle-delay timer #1=#:setup-hook #2=#:fun eval-preferred-function run-with-idle-timer repeat eldoc-mode-in-minibuffer #[nil "\203\302!\210 A\211\207" [timer eldoc-active-minibuffers-list cancel-timer] 2] eldoc-store-minibuffer nil #[nil "\302\303\"\210 \207" [#1# #2# remove-hook minibuffer-setup-hook] 3] #[nil "\301\302\"\207" [#1# remove-hook minibuffer-setup-hook] 3] add-hook minibuffer-setup-hook call-interactively] 4 (#$ . 4832) nil]) (byte-code "\300\301\302\"\210\303\304!\207" [global-set-key [remap eval-expression] eval-expression-with-eldoc provide eldoc-eval] 3)