diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-09-04 01:06:43 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-09-04 01:06:43 +0000 |
| commit | e5c60e46926b53bb907833e605c85f31f26fe3cd (patch) | |
| tree | d902fb5a4ef96640563357a9a47ed770ce8c4b16 /lisp/help.el | |
| parent | 31ac723b3940257494af1eca3afd2feaac5534e1 (diff) | |
| download | emacs-e5c60e46926b53bb907833e605c85f31f26fe3cd.tar.gz | |
(describe-function-1): Save precomputed `file-name' rather
than recomputing it (incorrectly) with `symbol-file'.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/help.el b/lisp/help.el index c379fba1373..c05fcb47490 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -710,15 +710,17 @@ 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) + (help-xref-button + 1 + #'(lambda (fun file) (require 'find-func) + ;; Don't use find-function-noselect because it follows + ;; aliases (which fails for built-in functions). (let* ((location (find-function-search-for-symbol - arg nil (symbol-file arg)))) + fun nil file))) (pop-to-buffer (car location)) (goto-char (cdr location)))) - function + (list function file-name) "mouse-2, RET: find function's definition"))))) (if need-close (princ ")")) (princ ".") |