mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(describe-function-1): Save precomputed `file-name' rather

Browse Source 
than recomputing it (incorrectly) with `symbol-file'.
This commit is contained in:
Stefan Monnier 2001-09-04 01:06:43 +00:00
parent 31ac723b39
commit e5c60e4692
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/help.el
View File

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