comparison lisp/help.el @ 39099:847a84fe7c2b

(describe-function-1): Save precomputed `file-name' rather than recomputing it (incorrectly) with `symbol-file'.

39098:ee6a2760c8dc

	  (princ "'")
	  ;; Make a hyperlink to the library.
	  (with-current-buffer "*Help*"
	    (save-excursion
	      (re-search-backward "`\\([^`']+\\)'" nil t)
	      (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)
    ;; Handle symbols aliased to other symbols.

39099:847a84fe7c2b

	  (princ "'")
	  ;; Make a hyperlink to the library.
	  (with-current-buffer "*Help*"
	    (save-excursion
	      (re-search-backward "`\\([^`']+\\)'" nil t)
	      (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
				     fun nil file)))
		     (pop-to-buffer (car location))
		     (goto-char (cdr location))))
	       (list function file-name)
	       "mouse-2, RET: find function's definition")))))
    (if need-close (princ ")"))
    (princ ".")
    (terpri)
    ;; Handle symbols aliased to other symbols.