mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1998-05-07 05:30:07 +00:00
parent 9e832d815b
commit 7dcf11272e
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/help.el
View file

@ -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)