diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-11-20 14:37:19 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-11-20 14:37:19 +0000 |
| commit | dcae291f236b5055010a64825e59ecbd9bc26d60 (patch) | |
| tree | a31f4f8d9f226753761591fbce8880d715df6806 /lisp/help-fns.el | |
| parent | 6f0d61bf2ca7bf9d535bd4b2ac062c3dde965574 (diff) | |
| download | emacs-dcae291f236b5055010a64825e59ecbd9bc26d60.tar.gz | |
(describe-variable): Look for (defvar . <sym>) in the
load-history since `defvar' now uses this format.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 2 |
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." ;; 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 |