# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1041628321 0
# Node ID 1f99e20d4977d1d1a76b614474e7cdae29ea8203
# Parent  941130502bf4aeb76fb7b9e5d9dbbed8cd1825e6
(find-variable-noselect): Make it work
with new load-history format.

diff -r 941130502bf4 -r 1f99e20d4977 lisp/emacs-lisp/find-func.el
--- a/lisp/emacs-lisp/find-func.el	Fri Jan 03 20:16:56 2003 +0000
+++ b/lisp/emacs-lisp/find-func.el	Fri Jan 03 21:12:01 2003 +0000
@@ -312,7 +312,8 @@
 `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