(describe-variable): Don't quote link to source.

diff --git a/lisp/help.el b/lisp/help.el
index 2e2b9459b535ddaaef96a49360f021b78ed26bf4..ce21fa904162461ce5e9b3f66a9e21e5a4fc84f5 100644 (file)
--- 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)))