From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 7 May 1998 05:30:07 +0000 (+0000)
Subject: (describe-function-1): Use find-function-noselect instead of find-function.
X-Git-Tag: emacs-20.3~1105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7dcf11272e666a6f1b9407998f234f3edaadf613;p=emacs.git

(describe-function-1): Use find-function-noselect instead of find-function.
---

diff --git a/lisp/help.el b/lisp/help.el
index 5911ec205fd..8a10d194ef6 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -628,7 +628,12 @@ C-w Display information on absence of warranty for GNU Emacs."
 	  (with-current-buffer "*Help*"
 	    (save-excursion
 	      (re-search-backward "`\\([^`']+\\)'" nil t)
-	      (help-xref-button 1 #'find-function function)))))
+	      (help-xref-button 1 #'(lambda (arg)
+				      (let ((location
+					     (find-function-noselect arg)))
+					(display-buffer (nth 0 location))
+					(goto-char (nth 1 location))))
+				function)))))
     (if need-close (princ ")"))
     (princ ".")
     (terpri)