Mercurial > hg > xemacs-beta
diff src/symbols.c @ 167:85ec50267440 r20-3b10
Import from CVS: tag r20-3b10
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:45:46 +0200 |
parents | 4be1180a9e89 |
children | 8eaf7971accc |
line wrap: on
line diff
--- a/src/symbols.c Mon Aug 13 09:44:44 2007 +0200 +++ b/src/symbols.c Mon Aug 13 09:45:46 2007 +0200 @@ -625,7 +625,7 @@ } DEFUN ("fset", Ffset, 2, 2, 0, /* -Set SYMBOL's function definition to NEWVAL, and return NEWVAL. +Set SYMBOL's function definition to NEWDEF, and return NEWDEF. */ (sym, newdef)) { @@ -648,7 +648,7 @@ /* FSFmacs */ DEFUN ("define-function", Fdefine_function, 2, 2, 0, /* -Set SYMBOL's function definition to NEWVAL, and return NEWVAL. +Set SYMBOL's function definition to NEWDEF, and return NEWDEF. Associates the function with the current load file, if any. */ (sym, newdef)) @@ -662,11 +662,17 @@ DEFUN ("setplist", Fsetplist, 2, 2, 0, /* -Set SYMBOL's property list to NEWVAL, and return NEWVAL. +Set SYMBOL's property list to NEWPLIST, and return NEWPLIST. */ (sym, newplist)) { CHECK_SYMBOL (sym); +#if 0 /* Inserted for debugging 6/28/1997 -slb */ + /* Somebody is setting a property list of integer 0, who? */ + /* Not this way apparently. */ + if (EQ(newplist, Qzero)) abort(); +#endif + XSYMBOL (sym)->plist = newplist; return newplist; } @@ -1918,8 +1924,8 @@ } DEFUN ("setq-default", Fsetq_default, 2, UNEVALLED, 0, /* -Set the default value of variable VAR to VALUE. -VAR, the variable name, is literal (not evaluated); +Set the default value of variable SYN to VALUE. +SYM, the variable name, is literal (not evaluated); VALUE is an expression and it is evaluated. The default value of a variable is seen in buffers that do not have their own values for the variable.