[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/find-func.el

[Richard M . Stallman]

Index: emacs/lisp/emacs-lisp/find-func.el
diff -c emacs/lisp/emacs-lisp/find-func.el:1.49 
emacs/lisp/emacs-lisp/find-func.el:1.50
*** emacs/lisp/emacs-lisp/find-func.el:1.49     Tue Nov 16 15:25:08 2004
--- emacs/lisp/emacs-lisp/find-func.el  Mon Dec 27 16:17:10 2004
***************
*** 242,248 ****
      (let ((library
           (cond ((eq (car-safe def) 'autoload)
                  (nth 1 def))
!                ((symbol-file function)))))
        (find-function-search-for-symbol function nil library))))
  
  (defalias 'function-at-point 'function-called-at-point)
--- 242,248 ----
      (let ((library
           (cond ((eq (car-safe def) 'autoload)
                  (nth 1 def))
!                ((symbol-file function 'defun)))))
        (find-function-search-for-symbol function nil library))))
  
  (defalias 'function-at-point 'function-called-at-point)
***************
*** 347,354 ****
  `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)))))
      (find-function-search-for-symbol variable 'variable library)))
  
  ;;;###autoload
--- 347,353 ----
  `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 'defvar))))
      (find-function-search-for-symbol variable 'variable library)))
  
  ;;;###autoload