aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c4
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
3213DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0, 3213DEFUN ("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.
3215Its value and function definition are void, and its property list is nil. */) 3215Its 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;