diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/data.c b/src/data.c index d06b9916b3a..47706584f5e 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -2125,8 +2125,6 @@ DEFUN ("indirect-function", Findirect_function, Sindirect_function, 1, 2, 0, | |||
| 2125 | doc: /* Return the function at the end of OBJECT's function chain. | 2125 | doc: /* Return the function at the end of OBJECT's function chain. |
| 2126 | If OBJECT is not a symbol, just return it. Otherwise, follow all | 2126 | If OBJECT is not a symbol, just return it. Otherwise, follow all |
| 2127 | function indirections to find the final function binding and return it. | 2127 | function indirections to find the final function binding and return it. |
| 2128 | If the final symbol in the chain is unbound, signal a void-function error. | ||
| 2129 | Optional arg NOERROR non-nil means to return nil instead of signaling. | ||
| 2130 | Signal a cyclic-function-indirection error if there is a loop in the | 2128 | Signal a cyclic-function-indirection error if there is a loop in the |
| 2131 | function chain of symbols. */) | 2129 | function chain of symbols. */) |
| 2132 | (register Lisp_Object object, Lisp_Object noerror) | 2130 | (register Lisp_Object object, Lisp_Object noerror) |
| @@ -2141,9 +2139,6 @@ function chain of symbols. */) | |||
| 2141 | if (!NILP (result)) | 2139 | if (!NILP (result)) |
| 2142 | return result; | 2140 | return result; |
| 2143 | 2141 | ||
| 2144 | if (NILP (noerror)) | ||
| 2145 | xsignal1 (Qvoid_function, object); | ||
| 2146 | |||
| 2147 | return Qnil; | 2142 | return Qnil; |
| 2148 | } | 2143 | } |
| 2149 | 2144 | ||