From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 5 Jan 2005 19:31:57 +0000 (+0000)
Subject: (find-variable, find-variable-other-window, find-variable-other-frame):
X-Git-Tag: ttn-vms-21-2-B4~2905
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=436c08c28835f5c0f7080a1ddd3a876f65e16145;p=emacs.git

(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.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7efce4fa93b..730d199dc3b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2005-01-05  Richard M. Stallman  <rms@gnu.org>
+
+	* 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  <rms@gnu.org>
 
 	* cus-face.el (custom-declare-face):
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index d6cc8be7062..49e44ca5fee 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))))