From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 6 Aug 2001 14:28:36 +0000 (+0000)
Subject: (describe-function-1): Use
X-Git-Tag: emacs-pretest-21.0.105~274
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c106884743bcaffcdb29b4d89aaec38c4ca63ea3;p=emacs.git

(describe-function-1): Use
find-function-search-for-symbol instead of find-functin-noselect
because the latter follows aliases.
---

diff --git a/lisp/help.el b/lisp/help.el
index be391914692..c379fba1373 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -710,13 +710,16 @@ It can also be nil, if the definition is not associated with any file."
 	  (with-current-buffer "*Help*"
 	    (save-excursion
 	      (re-search-backward "`\\([^`']+\\)'" nil t)
-	      (help-xref-button 1 #'(lambda (arg)
-				      (let ((location
-					     (find-function-noselect arg)))
-					(pop-to-buffer (car location))
-					(goto-char (cdr location))))
-				function
-				"mouse-2, RET: find function's definition")))))
+	      (help-xref-button 
+	       1 
+	       #'(lambda (arg)
+		   (require 'find-func)
+		   (let* ((location (find-function-search-for-symbol
+				     arg nil (symbol-file arg))))
+		     (pop-to-buffer (car location))
+		     (goto-char (cdr location))))
+	       function
+	       "mouse-2, RET: find function's definition")))))
     (if need-close (princ ")"))
     (princ ".")
     (terpri)