Mercurial > emacs
changeset 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 | 516fc58a7b7b |
| children | b13886e06eb2 |
| files | lisp/help.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Wed Nov 04 23:42:04 1998 +0000 +++ b/lisp/help.el Thu Nov 05 18:55:38 1998 +0000 @@ -748,12 +748,14 @@ ;; anything expects the current format.) (let ((file-name (describe-function-find-file variable))) (when file-name - (princ "\n\nDefined in `") + ;; Don't quote this, or it can get re-interpreted later + ;; by `help-make-xrefs'. + (princ "\n\nDefined in ") (princ file-name) - (princ "'.") + (princ ".") (with-current-buffer "*Help*" (save-excursion - (re-search-backward "`\\([^`']+\\)'" nil t) + (re-search-backward "Defined in \\([^.]+\\)." nil t) (help-xref-button 1 (lambda (arg) (let ((location (find-variable-noselect arg)))