From c106884743bcaffcdb29b4d89aaec38c4ca63ea3 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 6 Aug 2001 14:28:36 +0000 Subject: [PATCH] (describe-function-1): Use find-function-search-for-symbol instead of find-functin-noselect because the latter follows aliases. --- lisp/help.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index be391914692..c379fba1373 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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) -- 2.39.2