[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.52 
emacs/lisp/emacs-lisp/find-func.el:1.53
*** emacs/lisp/emacs-lisp/find-func.el:1.52     Wed Jan  5 01:08:24 2005
--- emacs/lisp/emacs-lisp/find-func.el  Wed Jan  5 19:31:00 2005
***************
*** 329,335 ****
    "Find the definition of the FUNCTION near point.
  
  Finds the Emacs Lisp library containing the definition of the function
! near point (selected by `function-at-point') in a buffer and
  places point before the definition.
  Set mark before moving, if the buffer already existed.
  
--- 329,335 ----
    "Find the definition of the FUNCTION near point.
  
  Finds the Emacs Lisp library containing the definition of the function
! near point (selected by `function-called-at-point') in a buffer and
  places point before the definition.
  Set mark before moving, if the buffer already existed.
  
***************
*** 383,406 ****
  The library where VARIABLE is defined is searched for in
  `find-function-source-path', if non nil, otherwise in `load-path'.
  See also `find-function-recenter-line' and `find-function-after-hook'."
!   (interactive (find-function-read 'variable))
!   (find-function-do-it variable t 'switch-to-buffer))
  
  ;;;###autoload
  (defun find-variable-other-window (variable)
    "Find, in another window, the definition of VARIABLE near point.
  
  See `find-variable' for more details."
!   (interactive (find-function-read 'variable))
!   (find-function-do-it variable t 'switch-to-buffer-other-window))
  
  ;;;###autoload
  (defun find-variable-other-frame (variable)
    "Find, in annother frame, the definition of VARIABLE near point.
  
  See `find-variable' for more details."
!   (interactive (find-function-read 'variable))
!   (find-function-do-it variable t 'switch-to-buffer-other-frame))
  
  ;;;###autoload
  (defun find-definition-noselect (symbol type &optional file)
--- 383,406 ----
  The library where VARIABLE is defined is searched for in
  `find-function-source-path', if non nil, otherwise in `load-path'.
  See also `find-function-recenter-line' and `find-function-after-hook'."
!   (interactive (find-function-read 'defvar))
!   (find-function-do-it variable 'defvar 'switch-to-buffer))
  
  ;;;###autoload
  (defun find-variable-other-window (variable)
    "Find, in another window, the definition of VARIABLE near point.
  
  See `find-variable' for more details."
!   (interactive (find-function-read 'defvar))
!   (find-function-do-it variable 'defvar 'switch-to-buffer-other-window))
  
  ;;;###autoload
  (defun find-variable-other-frame (variable)
    "Find, in annother frame, the definition of VARIABLE near point.
  
  See `find-variable' for more details."
!   (interactive (find-function-read 'defvar))
!   (find-function-do-it variable 'defvar 'switch-to-buffer-other-frame))
  
  ;;;###autoload
  (defun find-definition-noselect (symbol type &optional file)
***************
*** 465,471 ****
  (defun find-function-at-point ()
    "Find directly the function at point in the other window."
    (interactive)
!   (let ((symb (function-at-point)))
      (when symb
        (find-function-other-window symb))))
  
--- 465,471 ----
  (defun find-function-at-point ()
    "Find directly the function at point in the other window."
    (interactive)
!   (let ((symb (function-called-at-point)))
      (when symb
        (find-function-other-window symb))))