diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/help.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/help.el b/lisp/help.el index 2e2b9459b53..ce21fa90416 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -748,12 +748,14 @@ Returns the documentation as a string, also." ;; 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))) |