diff options
| author | Stefan Monnier | 2002-11-20 14:37:19 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-11-20 14:37:19 +0000 |
| commit | dcae291f236b5055010a64825e59ecbd9bc26d60 (patch) | |
| tree | a31f4f8d9f226753761591fbce8880d715df6806 | |
| parent | 6f0d61bf2ca7bf9d535bd4b2ac062c3dde965574 (diff) | |
| download | emacs-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.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." | |||
| 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 |