Commit 7dcf1127 authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent 9e832d81
...@@ -628,7 +628,12 @@ C-w Display information on absence of warranty for GNU Emacs." ...@@ -628,7 +628,12 @@ C-w Display information on absence of warranty for GNU Emacs."
(with-current-buffer "*Help*" (with-current-buffer "*Help*"
(save-excursion (save-excursion
(re-search-backward "`\\([^`']+\\)'" nil t) (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 ")")) (if need-close (princ ")"))
(princ ".") (princ ".")
(terpri) (terpri)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment