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.