Mercurial > emacs
changeset 59125:32d2da4da4de
(describe-function-1): Call symbol-file with `defun'.
(describe-variable): Call symbol-file with `defvar'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 27 Dec 2004 16:24:20 +0000 |
| parents | f38536b30f3a |
| children | 7c8ecf412b73 |
| files | lisp/help-fns.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help-fns.el Mon Dec 27 16:23:34 2004 +0000 +++ b/lisp/help-fns.el Mon Dec 27 16:24:20 2004 +0000 @@ -355,7 +355,7 @@ (if (re-search-backward "alias for `\\([^`']+\\)'" nil t) (help-xref-button 1 'help-function def))))) (or file-name - (setq file-name (symbol-file function))) + (setq file-name (symbol-file function 'defun))) (when (equal file-name "loaddefs.el") ;; Find the real def site of the preloaded function. ;; This is necessary only for defaliases. @@ -614,7 +614,7 @@ ;; Make a hyperlink to the library if appropriate. (Don't ;; change the format of the buffer's initial line in case ;; anything expects the current format.) - (let ((file-name (symbol-file (cons 'defvar variable)))) + (let ((file-name (symbol-file variable 'defvar))) (when (equal file-name "loaddefs.el") ;; Find the real def site of the preloaded variable. (let ((location