# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1104164230 0
# Node ID 9b98188d56ae087d9fd2e63137b36e283d76fb0e
# Parent  7b2031432b6343a6e2c59cdf559b7269e175e670
(find-function-noselect): Call symbol-file with `defun'.
(find-variable-noselect): Call symbol-file with `defvar'.

diff -r 7b2031432b63 -r 9b98188d56ae lisp/emacs-lisp/find-func.el
--- a/lisp/emacs-lisp/find-func.el	Mon Dec 27 16:16:24 2004 +0000
+++ b/lisp/emacs-lisp/find-func.el	Mon Dec 27 16:17:10 2004 +0000
@@ -242,7 +242,7 @@
     (let ((library
 	   (cond ((eq (car-safe def) 'autoload)
 		  (nth 1 def))
-		 ((symbol-file function)))))
+		 ((symbol-file function 'defun)))))
       (find-function-search-for-symbol function nil library))))
 
 (defalias 'function-at-point 'function-called-at-point)
@@ -347,8 +347,7 @@
 `find-function-source-path', if non nil, otherwise in `load-path'."
   (if (not variable)
       (error "You didn't specify a variable"))
-  ;; Fixme: I think `symbol-file' should be fixed instead.  -- fx
-  (let ((library (or file (symbol-file (cons 'defvar variable)))))
+  (let ((library (or file (symbol-file variable 'defvar))))
     (find-function-search-for-symbol variable 'variable library)))
 
 ;;;###autoload