diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/data.c b/src/data.c index 3e278e8bac3..d0ef5734abc 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -808,10 +808,12 @@ indirect_variable (struct Lisp_Symbol *symbol) | |||
| 808 | 808 | ||
| 809 | DEFUN ("indirect-variable", Findirect_variable, Sindirect_variable, 1, 1, 0, | 809 | DEFUN ("indirect-variable", Findirect_variable, Sindirect_variable, 1, 1, 0, |
| 810 | doc: /* Return the variable at the end of OBJECT's variable chain. | 810 | doc: /* Return the variable at the end of OBJECT's variable chain. |
| 811 | If OBJECT is a symbol, follow all variable indirections and return the final | 811 | If OBJECT is a symbol, follow its variable indirections (if any), and |
| 812 | variable. If OBJECT is not a symbol, just return it. | 812 | return the variable at the end of the chain of aliases. See Info node |
| 813 | Signal a cyclic-variable-indirection error if there is a loop in the | 813 | `(elisp)Variable Aliases'. |
| 814 | variable chain of symbols. */) | 814 | |
| 815 | If OBJECT is not a symbol, just return it. If there is a loop in the | ||
| 816 | chain of aliases, signal a `cyclic-variable-indirection' error. */) | ||
| 815 | (Lisp_Object object) | 817 | (Lisp_Object object) |
| 816 | { | 818 | { |
| 817 | if (SYMBOLP (object)) | 819 | if (SYMBOLP (object)) |