aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2002-11-20 14:37:19 +0000
committerStefan Monnier2002-11-20 14:37:19 +0000
commitdcae291f236b5055010a64825e59ecbd9bc26d60 (patch)
treea31f4f8d9f226753761591fbce8880d715df6806
parent6f0d61bf2ca7bf9d535bd4b2ac062c3dde965574 (diff)
downloademacs-dcae291f236b5055010a64825e59ecbd9bc26d60.tar.gz
emacs-dcae291f236b5055010a64825e59ecbd9bc26d60.zip
(describe-variable): Look for (defvar . <sym>) in the
load-history since `defvar' now uses this format.
-rw-r--r--lisp/help-fns.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 245bbd0e8d0..46a72b32ba2 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -482,7 +482,7 @@ it is displayed along with the global value."
482 ;; Make a hyperlink to the library if appropriate. (Don't 482 ;; Make a hyperlink to the library if appropriate. (Don't
483 ;; change the format of the buffer's initial line in case 483 ;; change the format of the buffer's initial line in case
484 ;; anything expects the current format.) 484 ;; anything expects the current format.)
485 (let ((file-name (symbol-file variable))) 485 (let ((file-name (symbol-file (cons 'defvar variable))))
486 (when (equal file-name "loaddefs.el") 486 (when (equal file-name "loaddefs.el")
487 ;; Find the real def site of the preloaded variable. 487 ;; Find the real def site of the preloaded variable.
488 (let ((location 488 (let ((location