1 ;;; eldoc.el --- Show function arglist or variable docstring in echo area -*- lexical-binding:t; -*-
3 ;; Copyright (C) 1996-2016 Free Software Foundation, Inc.
5 ;; Author: Noah Friedman <friedman@splode.com>
6 ;; Maintainer: friedman@splode.com
7 ;; Keywords: extensions
10 ;; This file is part of GNU Emacs.
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation, either version 3 of the License, or
15 ;; (at your option) any later version.
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
27 ;; This program was inspired by the behavior of the "mouse documentation
28 ;; window" on many Lisp Machine systems; as you type a function's symbol
29 ;; name as part of a sexp, it will print the argument list for that
30 ;; function. Behavior is not identical; for example, you need not actually
31 ;; type the function name, you need only move point around in a sexp that
32 ;; calls it. Also, if point is over a documented variable, it will print
33 ;; the one-line documentation for that variable instead, to remind you of
34 ;; that variable's meaning.
36 ;; One useful way to enable this minor mode is to put the following in your
39 ;; (add-hook 'emacs-lisp-mode-hook 'eldoc-mode)
40 ;; (add-hook 'lisp-interaction-mode-hook 'eldoc-mode)
41 ;; (add-hook 'ielm-mode-hook 'eldoc-mode)
42 ;; (add-hook 'eval-expression-minibuffer-setup-hook 'eldoc-mode)
44 ;; Major modes for other languages may use ElDoc by defining an
45 ;; appropriate function as the buffer-local value of
46 ;; `eldoc-documentation-function'.
51 "Show function arglist or variable docstring in echo area."
55 (defcustom eldoc-idle-delay
0.50
56 "Number of seconds of idle time to wait before printing.
57 If user input arrives before this interval of time has elapsed after the
58 last input, no documentation will be printed.
60 If this variable is set to 0, no idle time is required."
64 (defcustom eldoc-print-after-edit nil
65 "If non-nil eldoc info is only shown when editing.
66 Changing the value requires toggling `eldoc-mode'."
71 (defcustom eldoc-minor-mode-string
(purecopy " ElDoc")
72 "String to display in mode line when ElDoc Mode is enabled; nil for none."
73 :type
'(choice string
(const :tag
"None" nil
))
76 (defcustom eldoc-argument-case
#'identity
77 "Case to display argument names of functions, as a symbol.
78 This has two preferred values: `upcase' or `downcase'.
79 Actually, any name of a function which takes a string as an argument and
80 returns another string is acceptable.
82 Note that this variable has no effect, unless
83 `eldoc-documentation-function' handles it explicitly."
84 :type
'(radio (function-item upcase
)
85 (function-item downcase
)
88 (make-obsolete-variable 'eldoc-argument-case nil
"25.1")
90 (defcustom eldoc-echo-area-use-multiline-p
'truncate-sym-name-if-fit
91 "Allow long ElDoc messages to resize echo area display.
92 If value is t, never attempt to truncate messages; complete symbol name
93 and function arglist or 1-line variable documentation will be displayed
94 even if echo area must be resized to fit.
96 If value is any non-nil value other than t, symbol name may be truncated
97 if it will enable the function arglist or documentation string to fit on a
98 single line without resizing window. Otherwise, behavior is just like
101 If value is nil, messages are always truncated to fit in a single line of
102 display in the echo area. Function or variable symbol name may be
103 truncated to make more of the arglist or documentation string visible.
105 Note that this variable has no effect, unless
106 `eldoc-documentation-function' handles it explicitly."
107 :type
'(radio (const :tag
"Always" t
)
108 (const :tag
"Never" nil
)
109 (const :tag
"Yes, but truncate symbol names if it will\
110 enable argument list to fit on one line" truncate-sym-name-if-fit
))
113 (defface eldoc-highlight-function-argument
114 '((t (:inherit bold
)))
115 "Face used for the argument at point in a function's argument list.
116 Note that this face has no effect unless the `eldoc-documentation-function'
117 handles it explicitly."
120 ;;; No user options below here.
122 (defvar eldoc-message-commands-table-size
31
123 "Used by `eldoc-add-command' to initialize `eldoc-message-commands' obarray.
124 It should probably never be necessary to do so, but if you
125 choose to increase the number of buckets, you must do so before loading
126 this file since the obarray is initialized at load time.
127 Remember to keep it a prime number to improve hash performance.")
129 (defvar eldoc-message-commands
130 ;; Don't define as `defconst' since it would then go to (read-only) purespace.
131 (make-vector eldoc-message-commands-table-size
0)
132 "Commands after which it is appropriate to print in the echo area.
133 ElDoc does not try to print function arglists, etc., after just any command,
134 because some commands print their own messages in the echo area and these
135 functions would instantly overwrite them. But `self-insert-command' as well
136 as most motion commands are good candidates.
137 This variable contains an obarray of symbols; do not manipulate it
138 directly. Instead, use `eldoc-add-command' and `eldoc-remove-command'.")
141 (defvar eldoc-last-data
(make-vector 3 nil
)
142 ;; Don't define as `defconst' since it would then go to (read-only) purespace.
143 "Bookkeeping; elements are as follows:
144 0 - contains the last symbol read from the buffer.
145 1 - contains the string last displayed in the echo area for variables,
146 or argument string for functions.
147 2 - `function' if function args, `variable' if variable documentation.")
148 (make-obsolete-variable 'eldoc-last-data
"use your own instead" "25.1")
150 (defvar eldoc-last-message nil
)
152 (defvar eldoc-timer nil
"ElDoc's timer object.")
154 (defvar eldoc-current-idle-delay eldoc-idle-delay
155 "Idle time delay currently in use by timer.
156 This is used to determine if `eldoc-idle-delay' is changed by the user.")
158 (defvar eldoc-message-function
#'eldoc-minibuffer-message
159 "The function used by `eldoc-message' to display messages.
160 It should receive the same arguments as `message'.")
162 (defun eldoc-edit-message-commands ()
163 (let ((cmds (make-vector 31 0))
164 (re (regexp-opt '("delete" "insert" "edit" "electric" "newline"))))
165 (mapatoms (lambda (s)
167 (string-match-p re
(symbol-name s
))
168 (intern (symbol-name s
) cmds
)))
174 (define-minor-mode eldoc-mode
175 "Toggle echo area display of Lisp objects at point (ElDoc mode).
176 With a prefix argument ARG, enable ElDoc mode if ARG is positive,
177 and disable it otherwise. If called from Lisp, enable ElDoc mode
178 if ARG is omitted or nil.
180 ElDoc mode is a buffer-local minor mode. When enabled, the echo
181 area displays information about a function or variable in the
182 text where point is. If point is on a documented variable, it
183 displays the first line of that variable's doc string. Otherwise
184 it displays the argument list of the function called in the
185 expression point is on."
186 :group
'eldoc
:lighter eldoc-minor-mode-string
187 (setq eldoc-last-message nil
)
189 ((memq eldoc-documentation-function
'(nil ignore
))
190 (message "There is no ElDoc support in this buffer")
191 (setq eldoc-mode nil
))
193 (when eldoc-print-after-edit
194 (setq-local eldoc-message-commands
(eldoc-edit-message-commands)))
195 (add-hook 'post-command-hook
'eldoc-schedule-timer nil t
)
196 (add-hook 'pre-command-hook
'eldoc-pre-command-refresh-echo-area nil t
))
198 (kill-local-variable 'eldoc-message-commands
)
199 (remove-hook 'post-command-hook
'eldoc-schedule-timer t
)
200 (remove-hook 'pre-command-hook
'eldoc-pre-command-refresh-echo-area t
)
202 (cancel-timer eldoc-timer
)
203 (setq eldoc-timer nil
)))))
206 (define-minor-mode global-eldoc-mode
207 "Toggle Global Eldoc mode on or off.
208 With a prefix argument ARG, enable Global Eldoc mode if ARG is
209 positive, and disable it otherwise. If called from Lisp, enable
210 the mode if ARG is omitted or nil, and toggle it if ARG is ‘toggle’.
212 If Global Eldoc mode is on, `eldoc-mode' will be enabled in all
213 buffers where it's applicable. These are buffers that have modes
214 that have enabled eldoc support. See `eldoc-documentation-function'."
217 :initialize
'custom-initialize-delay
219 (setq eldoc-last-message nil
)
220 (if global-eldoc-mode
222 (add-hook 'post-command-hook
#'eldoc-schedule-timer
)
223 (add-hook 'pre-command-hook
#'eldoc-pre-command-refresh-echo-area
))
224 (remove-hook 'post-command-hook
#'eldoc-schedule-timer
)
225 (remove-hook 'pre-command-hook
#'eldoc-pre-command-refresh-echo-area
)))
228 (define-obsolete-function-alias 'turn-on-eldoc-mode
'eldoc-mode
"24.4")
231 (defun eldoc-schedule-timer ()
233 (memq eldoc-timer timer-idle-list
)) ;FIXME: Why?
239 (and global-eldoc-mode
240 (not (memq eldoc-documentation-function
242 (eldoc-print-current-symbol-info))))))
244 ;; If user has changed the idle delay, update the timer.
245 (cond ((not (= eldoc-idle-delay eldoc-current-idle-delay
))
246 (setq eldoc-current-idle-delay eldoc-idle-delay
)
247 (timer-set-idle-time eldoc-timer eldoc-idle-delay t
))))
249 (defvar eldoc-mode-line-string nil
)
250 (put 'eldoc-mode-line-string
'risky-local-variable t
)
252 (defun eldoc-minibuffer-message (format-string &rest args
)
253 "Display messages in the mode-line when in the minibuffer.
254 Otherwise work like `message'."
257 (add-hook 'minibuffer-exit-hook
258 (lambda () (setq eldoc-mode-line-string nil
259 ;; http://debbugs.gnu.org/16920
260 eldoc-last-message nil
))
264 (or (window-in-direction 'above
(minibuffer-window))
265 (minibuffer-selected-window)
266 (get-largest-window)))
267 (unless (and (listp mode-line-format
)
268 (assq 'eldoc-mode-line-string mode-line-format
))
269 (setq mode-line-format
270 (list "" '(eldoc-mode-line-string
271 (" " eldoc-mode-line-string
" "))
273 (setq eldoc-mode-line-string
274 (when (stringp format-string
)
275 (apply #'format-message format-string args
)))
276 (force-mode-line-update)))
277 (apply 'message format-string args
)))
279 (defun eldoc-message (&rest args
)
280 (let ((omessage eldoc-last-message
))
281 (setq eldoc-last-message
282 (cond ((eq (car args
) eldoc-last-message
) eldoc-last-message
)
283 ((null (car args
)) nil
)
284 ;; If only one arg, no formatting to do, so put it in
285 ;; eldoc-last-message so eq test above might succeed on
287 ((null (cdr args
)) (car args
))
288 (t (apply #'format-message args
))))
289 ;; In emacs 19.29 and later, and XEmacs 19.13 and later, all messages
290 ;; are recorded in a log. Do not put eldoc messages in that log since
292 ;; Emacs way of preventing log messages.
293 (let ((message-log-max nil
))
294 (cond (eldoc-last-message
295 (funcall eldoc-message-function
"%s" eldoc-last-message
))
296 (omessage (funcall eldoc-message-function nil
)))))
299 (defun eldoc--message-command-p (command)
300 (and (symbolp command
)
301 (intern-soft (symbol-name command
) eldoc-message-commands
)))
303 ;; This function goes on pre-command-hook for XEmacs or when using idle
304 ;; timers in Emacs. Motion commands clear the echo area for some reason,
305 ;; which make eldoc messages flicker or disappear just before motion
306 ;; begins. This function reprints the last eldoc message immediately
307 ;; before the next command executes, which does away with the flicker.
308 ;; This doesn't seem to be required for Emacs 19.28 and earlier.
309 (defun eldoc-pre-command-refresh-echo-area ()
310 (and eldoc-last-message
311 (not (minibufferp)) ;We don't use the echo area when in minibuffer.
312 (if (and (eldoc-display-message-no-interference-p)
313 (eldoc--message-command-p this-command
))
314 (eldoc-message eldoc-last-message
)
315 ;; No need to call eldoc-message since the echo area will be cleared
316 ;; for us, but do note that the last-message will be gone.
317 (setq eldoc-last-message nil
))))
319 ;; Decide whether now is a good time to display a message.
320 (defun eldoc-display-message-p ()
321 (and (eldoc-display-message-no-interference-p)
322 ;; If this-command is non-nil while running via an idle
323 ;; timer, we're still in the middle of executing a command,
324 ;; e.g. a query-replace where it would be annoying to
325 ;; overwrite the echo area.
327 (eldoc--message-command-p last-command
)))
330 ;; Check various conditions about the current environment that might make
331 ;; it undesirable to print eldoc messages right this instant.
332 (defun eldoc-display-message-no-interference-p ()
333 (not (or executing-kbd-macro
(bound-and-true-p edebug-active
))))
337 (defvar eldoc-documentation-function
#'ignore
338 "Function to call to return doc string.
339 The function of no args should return a one-line string for displaying
340 doc about a function etc. appropriate to the context around point.
341 It should return nil if there's no doc appropriate for the context.
342 Typically doc is returned if point is on a function-like name or in its
345 The result is used as is, so the function must explicitly handle
346 the variables `eldoc-argument-case' and `eldoc-echo-area-use-multiline-p',
347 and the face `eldoc-highlight-function-argument', if they are to have any
350 Major modes should modify this variable using `add-function', for example:
351 (add-function :before-until (local \\='eldoc-documentation-function)
352 #\\='foo-mode-eldoc-function)
353 so that the global documentation function (i.e. the default value of the
354 variable) is taken into account if the major mode specific function does not
355 return any documentation.")
357 (defun eldoc-print-current-symbol-info ()
358 ;; This is run from post-command-hook or some idle timer thing,
359 ;; so we need to be careful that errors aren't ignored.
360 (with-demoted-errors "eldoc error: %s"
361 (and (or (eldoc-display-message-p)
362 ;; Erase the last message if we won't display a new one.
363 (when eldoc-last-message
366 (eldoc-message (funcall eldoc-documentation-function
)))))
368 ;; If the entire line cannot fit in the echo area, the symbol name may be
369 ;; truncated or eliminated entirely from the output to make room for the
371 (defun eldoc-docstring-format-sym-doc (prefix doc
&optional face
)
372 (when (symbolp prefix
)
373 (setq prefix
(concat (propertize (symbol-name prefix
) 'face face
) ": ")))
374 (let* ((ea-multi eldoc-echo-area-use-multiline-p
)
375 ;; Subtract 1 from window width since emacs will not write
376 ;; any chars to the last column, or in later versions, will
377 ;; cause a wraparound and resize of the echo area.
378 (ea-width (1- (window-width (minibuffer-window))))
379 (strip (- (+ (length prefix
) (length doc
)) ea-width
)))
380 (cond ((or (<= strip
0)
382 (and ea-multi
(> (length doc
) ea-width
)))
384 ((> (length doc
) ea-width
)
385 (substring (format "%s" doc
) 0 ea-width
))
386 ((>= strip
(string-match-p ":? *\\'" prefix
))
389 ;; Show the end of the partial symbol name, rather
390 ;; than the beginning, since the former is more likely
391 ;; to be unique given package namespace conventions.
392 (concat (substring prefix strip
) doc
)))))
394 ;; When point is in a sexp, the function args are not reprinted in the echo
395 ;; area after every possible interactive command because some of them print
396 ;; their own messages in the echo area; the eldoc functions would instantly
397 ;; overwrite them unless it is more restrained.
398 ;; These functions do display-command table management.
400 (defun eldoc-add-command (&rest cmds
)
403 (setq name
(symbol-name name
)))
404 (set (intern name eldoc-message-commands
) t
)))
406 (defun eldoc-add-command-completions (&rest names
)
408 (apply #'eldoc-add-command
(all-completions name obarray
'commandp
))))
410 (defun eldoc-remove-command (&rest cmds
)
413 (setq name
(symbol-name name
)))
414 (unintern name eldoc-message-commands
)))
416 (defun eldoc-remove-command-completions (&rest names
)
418 (apply #'eldoc-remove-command
419 (all-completions name eldoc-message-commands
))))
422 ;; Prime the command list.
423 (eldoc-add-command-completions
424 "back-to-indentation"
425 "backward-" "beginning-of-" "delete-other-windows" "delete-window"
426 "down-list" "end-of-" "exchange-point-and-mark" "forward-" "goto-"
427 "handle-select-window" "indent-for-tab-command" "left-" "mark-page"
428 "mark-paragraph" "mouse-set-point" "move-" "move-beginning-of-"
429 "move-end-of-" "next-" "other-window" "pop-global-mark" "previous-"
430 "recenter" "right-" "scroll-" "self-insert-command" "split-window-"
435 ;;; eldoc.el ends here