From 436c08c28835f5c0f7080a1ddd3a876f65e16145 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 5 Jan 2005 19:31:57 +0000 Subject: (find-variable, find-variable-other-window, find-variable-other-frame): Fix the TYPE args to find-function-read and find-function-do-it. (find-function): Doc fix. (find-function-at-point): Replace function-at-point alias. --- lisp/ChangeLog | 8 ++++++++ lisp/emacs-lisp/find-func.el | 16 ++++++++-------- 2 files changed, 16 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7efce4fa93..730d199dc3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2005-01-05 Richard M. Stallman + + * emacs-lisp/find-func.el (find-variable) + (find-variable-other-window, find-variable-other-frame): + Fix the TYPE args to find-function-read and find-function-do-it. + (find-function): Doc fix. + (find-function-at-point): Replace function-at-point alias. + 2005-01-04 Richard M. Stallman * cus-face.el (custom-declare-face): diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index d6cc8be706..49e44ca5fe 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -329,7 +329,7 @@ Set mark before moving, if the buffer already existed." "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 +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,24 +383,24 @@ Set mark before moving, if the buffer already existed. 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)) + (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 'variable)) - (find-function-do-it variable t 'switch-to-buffer-other-window)) + (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 'variable)) - (find-function-do-it variable t 'switch-to-buffer-other-frame)) + (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,7 +465,7 @@ Set mark before moving, if the buffer already existed." (defun find-function-at-point () "Find directly the function at point in the other window." (interactive) - (let ((symb (function-at-point))) + (let ((symb (function-called-at-point))) (when symb (find-function-other-window symb)))) -- cgit v1.2.3