# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 999565603 0
# Node ID 847a84fe7c2bd8a24912bfa2eb3bafbfbdbed938
# Parent  ee6a2760c8dc87cc1f298e085e94eabb4a3f526c
(describe-function-1): Save precomputed `file-name' rather
than recomputing it (incorrectly) with `symbol-file'.

diff -r ee6a2760c8dc -r 847a84fe7c2b lisp/help.el
--- a/lisp/help.el	Tue Sep 04 01:02:16 2001 +0000
+++ b/lisp/help.el	Tue Sep 04 01:06:43 2001 +0000
@@ -710,15 +710,17 @@
 	  (with-current-buffer "*Help*"
 	    (save-excursion
 	      (re-search-backward "`\\([^`']+\\)'" nil t)
-	      (help-xref-button 
-	       1 
-	       #'(lambda (arg)
+	      (help-xref-button
+	       1
+	       #'(lambda (fun file)
 		   (require 'find-func)
+		   ;; Don't use find-function-noselect because it follows
+		   ;; aliases (which fails for built-in functions).
 		   (let* ((location (find-function-search-for-symbol
-				     arg nil (symbol-file arg))))
+				     fun nil file)))
 		     (pop-to-buffer (car location))
 		     (goto-char (cdr location))))
-	       function
+	       (list function file-name)
 	       "mouse-2, RET: find function's definition")))))
     (if need-close (princ ")"))
     (princ ".")