diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/alloc.c b/src/alloc.c index a66a752f5dc..22e3db3cc77 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -3212,7 +3212,7 @@ static struct Lisp_Symbol *symbol_free_list; | |||
| 3212 | 3212 | ||
| 3213 | DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0, | 3213 | DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0, |
| 3214 | doc: /* Return a newly allocated uninterned symbol whose name is NAME. | 3214 | doc: /* Return a newly allocated uninterned symbol whose name is NAME. |
| 3215 | Its value and function definition are void, and its property list is nil. */) | 3215 | Its value is void, and its function definition and property list are nil. */) |
| 3216 | (Lisp_Object name) | 3216 | (Lisp_Object name) |
| 3217 | { | 3217 | { |
| 3218 | register Lisp_Object val; | 3218 | register Lisp_Object val; |
| @@ -3249,7 +3249,7 @@ Its value and function definition are void, and its property list is nil. */) | |||
| 3249 | set_symbol_plist (val, Qnil); | 3249 | set_symbol_plist (val, Qnil); |
| 3250 | p->redirect = SYMBOL_PLAINVAL; | 3250 | p->redirect = SYMBOL_PLAINVAL; |
| 3251 | SET_SYMBOL_VAL (p, Qunbound); | 3251 | SET_SYMBOL_VAL (p, Qunbound); |
| 3252 | set_symbol_function (val, Qunbound); | 3252 | set_symbol_function (val, Qnil); |
| 3253 | set_symbol_next (val, NULL); | 3253 | set_symbol_next (val, NULL); |
| 3254 | p->gcmarkbit = 0; | 3254 | p->gcmarkbit = 0; |
| 3255 | p->interned = SYMBOL_UNINTERNED; | 3255 | p->interned = SYMBOL_UNINTERNED; |