diff options
Diffstat (limited to 'lisp/progmodes/elisp-mode.el')
| -rw-r--r-- | lisp/progmodes/elisp-mode.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index 2f44118edb5..21ba42a0fe1 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el | |||
| @@ -1420,10 +1420,12 @@ Intended for `eldoc-documentation-functions' (which see)." | |||
| 1420 | (defun elisp-eldoc-var-docstring (callback &rest _ignored) | 1420 | (defun elisp-eldoc-var-docstring (callback &rest _ignored) |
| 1421 | "Document variable at point. | 1421 | "Document variable at point. |
| 1422 | Intended for `eldoc-documentation-functions' (which see)." | 1422 | Intended for `eldoc-documentation-functions' (which see)." |
| 1423 | (let ((sym (elisp--current-symbol))) | 1423 | (let* ((sym (elisp--current-symbol)) |
| 1424 | (when sym (funcall callback (elisp-get-var-docstring sym) | 1424 | (docstring (and sym (elisp-get-var-docstring sym)))) |
| 1425 | :thing sym | 1425 | (when docstring |
| 1426 | :face 'font-lock-variable-name-face)))) | 1426 | (funcall callback docstring |
| 1427 | :thing sym | ||
| 1428 | :face 'font-lock-variable-name-face)))) | ||
| 1427 | 1429 | ||
| 1428 | (defun elisp-get-fnsym-args-string (sym &optional index) | 1430 | (defun elisp-get-fnsym-args-string (sym &optional index) |
| 1429 | "Return a string containing the parameter list of the function SYM. | 1431 | "Return a string containing the parameter list of the function SYM. |