diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-12-27 16:24:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-12-27 16:24:20 +0000 |
| commit | 38fb035434ab7d155b36895598d57ad74de9763e (patch) | |
| tree | 52ca4904d2f5f5d151f0c406d33342b5628a4752 /lisp/help-fns.el | |
| parent | 9e247d246e31afad6ce78c65c2e996a8be1fe933 (diff) | |
| download | emacs-38fb035434ab7d155b36895598d57ad74de9763e.tar.gz | |
(describe-function-1): Call symbol-file with `defun'.
(describe-variable): Call symbol-file with `defvar'.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index f799fbd9be7..522c1e2c19d 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -355,7 +355,7 @@ face (according to `face-differs-from-default-p')." (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 @@ it is displayed along with the global value." ;; 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 |