# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 910292138 0
# Node ID 51102c1dc0c32fbe4150677ed5219232abf407ad
# Parent  516fc58a7b7b1f2271a3f507530c101549ea706d
(describe-variable): Don't quote link to source.

diff -r 516fc58a7b7b -r 51102c1dc0c3 lisp/help.el
--- 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)))