aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorThien-Thi Nguyen2006-02-10 22:36:01 +0000
committerThien-Thi Nguyen2006-02-10 22:36:01 +0000
commit0ddb0ae836e507dc227fc518648a646a9918e448 (patch)
tree2bf7da18559a36da07801287d0bf7039a8f8fb3e /src/data.c
parentbe397698619235d4526d6e47023d32ea038f6357 (diff)
downloademacs-0ddb0ae836e507dc227fc518648a646a9918e448.tar.gz
emacs-0ddb0ae836e507dc227fc518648a646a9918e448.zip
(Findirect_function): Rewrite docstring.
Fix omission bug: Declare new arg NOERROR.
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c12
1 files changed, 6 insertions, 6 deletions
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)
1929 1929
1930DEFUN ("indirect-function", Findirect_function, Sindirect_function, 1, 2, 0, 1930DEFUN ("indirect-function", Findirect_function, Sindirect_function, 1, 2, 0,
1931 doc: /* Return the function at the end of OBJECT's function chain. 1931 doc: /* Return the function at the end of OBJECT's function chain.
1932If OBJECT is a symbol, follow all function indirections and return the final 1932If OBJECT is not a symbol, just return it. Otherwise, follow all
1933function binding. 1933function indirections to find the final function binding and return it.
1934If OBJECT is not a symbol, just return it. 1934If the final symbol in the chain is unbound, signal a void-function error.
1935If optional arg NOERROR is nil, signal a void-function error if 1935Optional arg NOERROR non-nil means to return nil instead of signalling.
1936the final symbol is unbound. Otherwise, just return nil is unbound.
1937Signal a cyclic-function-indirection error if there is a loop in the 1936Signal a cyclic-function-indirection error if there is a loop in the
1938function chain of symbols. */) 1937function chain of symbols. */)
1939(object, noerror) 1938 (object, noerror)
1940 register Lisp_Object object; 1939 register Lisp_Object object;
1940 Lisp_Object noerror;
1941{ 1941{
1942 Lisp_Object result; 1942 Lisp_Object result;
1943 1943