From 3b3e7de595cb67917177b2489af5775581dbb11e Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 5 Nov 1998 18:55:38 +0000 Subject: [PATCH] (describe-variable): Don't quote link to source. --- lisp/help.el | 8 +++++--- 1 file 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))) -- 2.39.2