Mercurial > emacs
comparison lisp/help.el @ 23640:51102c1dc0c3
(describe-variable): Don't quote link to source.
author | Dave Love <fx@gnu.org> |
---|---|
date | Thu, 05 Nov 1998 18:55:38 +0000 |
parents | 9487b796b92c |
children | 0146ed131b2a |
comparison
equal
deleted
inserted
replaced
23639:516fc58a7b7b | 23640:51102c1dc0c3 |
---|---|
746 ;; Make a hyperlink to the library if appropriate. (Don't | 746 ;; Make a hyperlink to the library if appropriate. (Don't |
747 ;; change the format of the buffer's initial line in case | 747 ;; change the format of the buffer's initial line in case |
748 ;; anything expects the current format.) | 748 ;; anything expects the current format.) |
749 (let ((file-name (describe-function-find-file variable))) | 749 (let ((file-name (describe-function-find-file variable))) |
750 (when file-name | 750 (when file-name |
751 (princ "\n\nDefined in `") | 751 ;; Don't quote this, or it can get re-interpreted later |
752 ;; by `help-make-xrefs'. | |
753 (princ "\n\nDefined in ") | |
752 (princ file-name) | 754 (princ file-name) |
753 (princ "'.") | 755 (princ ".") |
754 (with-current-buffer "*Help*" | 756 (with-current-buffer "*Help*" |
755 (save-excursion | 757 (save-excursion |
756 (re-search-backward "`\\([^`']+\\)'" nil t) | 758 (re-search-backward "Defined in \\([^.]+\\)." nil t) |
757 (help-xref-button 1 (lambda (arg) | 759 (help-xref-button 1 (lambda (arg) |
758 (let ((location | 760 (let ((location |
759 (find-variable-noselect arg))) | 761 (find-variable-noselect arg))) |
760 (pop-to-buffer (car location)) | 762 (pop-to-buffer (car location)) |
761 (goto-char (cdr location)))) | 763 (goto-char (cdr location)))) |