From dcae291f236b5055010a64825e59ecbd9bc26d60 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 20 Nov 2002 14:37:19 +0000 Subject: [PATCH] (describe-variable): Look for (defvar . ) in the load-history since `defvar' now uses this format. --- lisp/help-fns.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.2