mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 14:10:47 -08:00
Code Issues Projects Releases Wiki Activity

(describe-function-1): Use

Browse source 
find-function-search-for-symbol instead of find-functin-noselect
because the latter follows aliases.
This commit is contained in:
Gerd Moellmann 2001-08-06 14:28:36 +00:00
parent 61869b99b4
commit c106884743
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/help.el
View file

@ -710,13 +710,16 @@ It can also be nil, if the definition is not associated with any file."
(with-current-buffer "*Help*"
(save-excursion
(re-search-backward "`\\([^`']+\\)'" nil t)
(help-xref-button 1 #'(lambda (arg)
(let ((location
(find-function-noselect arg)))
(pop-to-buffer (car location))
(goto-char (cdr location))))
function
"mouse-2, RET: find function's definition")))))
(help-xref-button
1
#'(lambda (arg)
(require 'find-func)
(let* ((location (find-function-search-for-symbol
arg nil (symbol-file arg))))
(pop-to-buffer (car location))
(goto-char (cdr location))))
function
"mouse-2, RET: find function's definition")))))
(if need-close (princ ")"))
(princ ".")
(terpri)