procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(eldoc-get-var-docstring): Only return a

Browse source 
documentation string when `sym' is non-nil.
This commit is contained in:
John Paul Wallington 2003-01-03 11:46:20 +00:00
parent 7413b888c0
commit 2dba57c18e
2 changed files with 17 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/emacs-lisp/eldoc.el
View file

@ -7,7 +7,7 @@
;; Keywords: extensions
;; Created: 1995-10-06
;; $Id: eldoc.el,v 1.20 2002/01/08 23:57:30 rms Exp $
;; $Id: eldoc.el,v 1.21 2002/11/19 23:32:54 monnier Exp $
;; This file is part of GNU Emacs.
@ -327,16 +327,17 @@ With prefix ARG, turn ElDoc mode on if and only if ARG is positive."
;; Return a string containing a brief (one-line) documentation string for
;; the variable.
(defun eldoc-get-var-docstring (sym)
(cond ((and (eq sym (aref eldoc-last-data 0))
(eq 'variable (aref eldoc-last-data 2)))
(aref eldoc-last-data 1))
(t
(let ((doc (documentation-property sym 'variable-documentation t)))
(cond (doc
(setq doc (eldoc-docstring-format-sym-doc
sym (eldoc-docstring-first-line doc)))
(eldoc-last-data-store sym doc 'variable)))
doc))))
(when sym
(cond ((and (eq sym (aref eldoc-last-data 0))
(eq 'variable (aref eldoc-last-data 2)))
(aref eldoc-last-data 1))
(t
(let ((doc (documentation-property sym 'variable-documentation t)))
(cond (doc
(setq doc (eldoc-docstring-format-sym-doc
sym (eldoc-docstring-first-line doc)))
(eldoc-last-data-store sym doc 'variable)))
doc)))))
(defun eldoc-last-data-store (symbol doc type)
(aset eldoc-last-data 0 symbol)