diff options
| -rw-r--r-- | lisp/help.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 03824b0e124..3168b92443c 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -622,7 +622,12 @@ C-w Display information on absence of warranty for GNU Emacs." | |||
| 622 | ;; We used to add .el to the file name, | 622 | ;; We used to add .el to the file name, |
| 623 | ;; but that's completely wrong when the user used load-file. | 623 | ;; but that's completely wrong when the user used load-file. |
| 624 | (princ file-name) | 624 | (princ file-name) |
| 625 | (princ "'"))) | 625 | (princ "'") |
| 626 | ;; Make a hyperlink to the library. | ||
| 627 | (with-current-buffer "*Help*" | ||
| 628 | (save-excursion | ||
| 629 | (re-search-backward "`\\([^`']+\\)'" nil t) | ||
| 630 | (help-xref-button 1 #'find-function function))))) | ||
| 626 | (if need-close (princ ")")) | 631 | (if need-close (princ ")")) |
| 627 | (princ ".") | 632 | (princ ".") |
| 628 | (terpri) | 633 | (terpri) |