Mercurial > emacs
changeset 49017:09ff6e632947
(eldoc-get-var-docstring): Only return a
documentation string when `sym' is non-nil.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Fri, 03 Jan 2003 11:46:20 +0000 |
| parents | ac27fa84f239 |
| children | cd1e53e61699 |
| files | lisp/ChangeLog lisp/emacs-lisp/eldoc.el |
| diffstat | 2 files changed, 17 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jan 02 22:37:13 2003 +0000 +++ b/lisp/ChangeLog Fri Jan 03 11:46:20 2003 +0000 @@ -1,3 +1,8 @@ +2003-01-03 John Paul Wallington <jpw@shootybangbang.com> + + * emacs-lisp/eldoc.el (eldoc-get-var-docstring): Only return a + documentation string when `sym' is non-nil. + 2003-01-02 Steven Tamm <steventamm@mac.com> * scroll-bar.el (toggle-scroll-bar, scroll-bar-mode): Have
--- a/lisp/emacs-lisp/eldoc.el Thu Jan 02 22:37:13 2003 +0000 +++ b/lisp/emacs-lisp/eldoc.el Fri Jan 03 11:46:20 2003 +0000 @@ -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 @@ ;; 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)