From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 29 Jul 1998 23:04:03 +0000 (+0000)
Subject: (describe-function-1): Fix the code that uses find-function-noselect.
X-Git-Tag: emacs-20.3~229
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=582b6241efe64b45aa8747a9dc2557c730ac889a;p=emacs.git

(describe-function-1): Fix the code that uses find-function-noselect.
---

diff --git a/lisp/help.el b/lisp/help.el
index afe7f49e220..ba3c6d6d4cd 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -619,8 +619,8 @@ C-w Display information on absence of warranty for GNU Emacs."
 	      (help-xref-button 1 #'(lambda (arg)
 				      (let ((location
 					     (find-function-noselect arg)))
-					(display-buffer (nth 0 location))
-					(goto-char (nth 1 location))))
+					(pop-to-buffer (car location))
+					(goto-char (cdr location))))
 				function)))))
     (if need-close (princ ")"))
     (princ ".")