# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1037803039 0
# Node ID 2107f1adf452a08a0edaa2495ceb962498fb7079
# Parent  29e63846608da8ae2318cf0aabb345b7432b964c
(describe-variable): Look for (defvar . <sym>) in the
load-history since `defvar' now uses this format.

diff -r 29e63846608d -r 2107f1adf452 lisp/help-fns.el
--- a/lisp/help-fns.el	Wed Nov 20 14:35:54 2002 +0000
+++ b/lisp/help-fns.el	Wed Nov 20 14:37:19 2002 +0000
@@ -482,7 +482,7 @@
 	    ;; Make a hyperlink to the library if appropriate.  (Don't
 	    ;; change the format of the buffer's initial line in case
 	    ;; anything expects the current format.)
-	    (let ((file-name (symbol-file variable)))
+	    (let ((file-name (symbol-file (cons 'defvar variable))))
 	      (when (equal file-name "loaddefs.el")
 		;; Find the real def site of the preloaded variable.
 		(let ((location