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

This commit is contained in:
Richard M. Stallman 1998-07-29 23:04:03 +00:00
parent 79b65a085d
commit 582b6241ef

View file

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