Mercurial > emacs
changeset 39099:847a84fe7c2b
(describe-function-1): Save precomputed `file-name' rather
than recomputing it (incorrectly) with `symbol-file'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 04 Sep 2001 01:06:43 +0000 |
| parents | ee6a2760c8dc |
| children | d6ab4bbbc133 |
| files | lisp/help.el |
| diffstat | 1 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Tue Sep 04 01:02:16 2001 +0000 +++ b/lisp/help.el Tue Sep 04 01:06:43 2001 +0000 @@ -710,15 +710,17 @@ (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 ".")