From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Fri, 10 Feb 2006 22:36:01 +0000 (+0000)
Subject: (Findirect_function): Rewrite docstring.
X-Git-Tag: emacs-pretest-22.0.90~4228
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ddb0ae836e507dc227fc518648a646a9918e448;p=emacs.git

(Findirect_function): Rewrite docstring.
Fix omission bug: Declare new arg NOERROR.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index d5a57e890ef..b3c11b95140 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-10  Thien-Thi Nguyen  <ttn@gnu.org>
+
+	* data.c (Findirect_function): Rewrite docstring.
+	Fix omission bug: Declare new arg NOERROR.
+
 2006-02-10  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
 	* macfns.c (x_set_mouse_color): Don't call rif->define_frame_cursor
diff --git a/src/data.c b/src/data.c
index 7919021d061..73f712279d7 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1929,15 +1929,15 @@ indirect_function (object)
 
 DEFUN ("indirect-function", Findirect_function, Sindirect_function, 1, 2, 0,
        doc: /* Return the function at the end of OBJECT's function chain.
-If OBJECT is a symbol, follow all function indirections and return the final
-function binding.
-If OBJECT is not a symbol, just return it.
-If optional arg NOERROR is nil, signal a void-function error if
-the final symbol is unbound.  Otherwise, just return nil is unbound.
+If OBJECT is not a symbol, just return it.  Otherwise, follow all
+function indirections to find the final function binding and return it.
+If the final symbol in the chain is unbound, signal a void-function error.
+Optional arg NOERROR non-nil means to return nil instead of signalling.
 Signal a cyclic-function-indirection error if there is a loop in the
 function chain of symbols.  */)
-(object, noerror)
+     (object, noerror)
      register Lisp_Object object;
+     Lisp_Object noerror;
 {
   Lisp_Object result;