From 0ddb0ae836e507dc227fc518648a646a9918e448 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Fri, 10 Feb 2006 22:36:01 +0000 Subject: [PATCH] (Findirect_function): Rewrite docstring. Fix omission bug: Declare new arg NOERROR. --- src/ChangeLog | 5 +++++ src/data.c | 12 ++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) 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 + + * data.c (Findirect_function): Rewrite docstring. + Fix omission bug: Declare new arg NOERROR. + 2006-02-10 YAMAMOTO Mitsuharu * 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; -- 2.39.2