diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index cc15431cd16..cc0f96793ca 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -607,7 +607,7 @@ Return SYMBOL. */) | |||
| 607 | register Lisp_Object symbol; | 607 | register Lisp_Object symbol; |
| 608 | { | 608 | { |
| 609 | CHECK_SYMBOL (symbol); | 609 | CHECK_SYMBOL (symbol); |
| 610 | if (XSYMBOL (symbol)->constant) | 610 | if (SYMBOL_CONSTANT_P (symbol)) |
| 611 | xsignal1 (Qsetting_constant, symbol); | 611 | xsignal1 (Qsetting_constant, symbol); |
| 612 | Fset (symbol, Qunbound); | 612 | Fset (symbol, Qunbound); |
| 613 | return symbol; | 613 | return symbol; |
| @@ -2884,7 +2884,7 @@ usage: (logior &rest INTS-OR-MARKERS) */) | |||
| 2884 | DEFUN ("logxor", Flogxor, Slogxor, 0, MANY, 0, | 2884 | DEFUN ("logxor", Flogxor, Slogxor, 0, MANY, 0, |
| 2885 | doc: /* Return bitwise-exclusive-or of all the arguments. | 2885 | doc: /* Return bitwise-exclusive-or of all the arguments. |
| 2886 | Arguments may be integers, or markers converted to integers. | 2886 | Arguments may be integers, or markers converted to integers. |
| 2887 | usage: (logxor &rest INTS-OR-MARKERS) */) | 2887 | usage: (logxor &rest INTS-OR-MARKERS) */) |
| 2888 | (nargs, args) | 2888 | (nargs, args) |
| 2889 | int nargs; | 2889 | int nargs; |
| 2890 | Lisp_Object *args; | 2890 | Lisp_Object *args; |