diff options
| author | Thien-Thi Nguyen | 2006-02-10 22:36:01 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen | 2006-02-10 22:36:01 +0000 |
| commit | 0ddb0ae836e507dc227fc518648a646a9918e448 (patch) | |
| tree | 2bf7da18559a36da07801287d0bf7039a8f8fb3e /src/data.c | |
| parent | be397698619235d4526d6e47023d32ea038f6357 (diff) | |
| download | emacs-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.c | 12 |
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 | ||
| 1930 | DEFUN ("indirect-function", Findirect_function, Sindirect_function, 1, 2, 0, | 1930 | DEFUN ("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. |
| 1932 | If OBJECT is a symbol, follow all function indirections and return the final | 1932 | If OBJECT is not a symbol, just return it. Otherwise, follow all |
| 1933 | function binding. | 1933 | function indirections to find the final function binding and return it. |
| 1934 | If OBJECT is not a symbol, just return it. | 1934 | If the final symbol in the chain is unbound, signal a void-function error. |
| 1935 | If optional arg NOERROR is nil, signal a void-function error if | 1935 | Optional arg NOERROR non-nil means to return nil instead of signalling. |
| 1936 | the final symbol is unbound. Otherwise, just return nil is unbound. | ||
| 1937 | Signal a cyclic-function-indirection error if there is a loop in the | 1936 | Signal a cyclic-function-indirection error if there is a loop in the |
| 1938 | function chain of symbols. */) | 1937 | function 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 | ||