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