(describe-function-1): Fix the code that uses find-function-noselect.
This commit is contained in:
parent
79b65a085d
commit
582b6241ef
1 changed files with 2 additions and 2 deletions
|
@ -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 ".")
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue