From: Dave Love <fx@gnu.org>
Date: Fri, 3 Jan 2003 21:12:01 +0000 (+0000)
Subject: (find-variable-noselect): Make it work
X-Git-Tag: ttn-vms-21-2-B4~11850
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b1824c287f633ab547d85ecf2b0fff4f03e3596;p=emacs.git

(find-variable-noselect): Make it work
with new load-history format.
---

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index 1ca39b461f7..4192209b7d8 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -312,7 +312,8 @@ The library where VARIABLE is defined is searched for in FILE or
 `find-function-source-path', if non nil, otherwise in `load-path'."
   (if (not variable)
       (error "You didn't specify a variable"))
-  (let ((library (or file (symbol-file variable))))
+  ;; Fixme: I think `symbol-file' should be fixed instead.  -- fx 
+  (let ((library (or file (symbol-file (cons 'defvar variable)))))
     (find-function-search-for-symbol variable 'variable library)))
 
 ;;;###autoload