From 7dcf11272e666a6f1b9407998f234f3edaadf613 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 7 May 1998 05:30:07 +0000 Subject: [PATCH] (describe-function-1): Use find-function-noselect instead of find-function. --- lisp/help.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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) -- 2.39.2