# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1139610864 0
# Node ID eb6c6d7a4c7fe3b2367e5c4692ad7dd0e9145ffb
# Parent  156eafa22e3ea81c7bca3f89590e34f088395d38
(Findirect_function): Rewrite docstring.
Fix omission bug: Declare new arg NOERROR.

diff -r 156eafa22e3e -r eb6c6d7a4c7f src/data.c
--- a/src/data.c	Fri Feb 10 20:04:50 2006 +0000
+++ b/src/data.c	Fri Feb 10 22:34:24 2006 +0000
@@ -1929,15 +1929,15 @@
 
 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;