Re: setq-default docstring fix

[Juri Linkov <juri@jurta.org>]

Stefan Monnier <monnier@iro.umontreal.ca> writes:
>> The docstring for setq-default mentions an argument named VAR, but it
>> is really named SYMBOL.  Could someone please install this?
>
> I'd rather fix the arglist to use `var'.

The Emacs Lisp reference manual describes it as `symbol'.  But then it
uses `form' instead of `value' for the second argument.  I don't have
an opinion about the name, I only want to point out that it should be
consistently used in all documentation.

BTW, I suggest to change the argument names of `rassq' and `rassoc' too:

Index: emacs/src/fns.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/fns.c,v
retrieving revision 1.362
diff -u -r1.362 fns.c
--- emacs/src/fns.c	26 Apr 2004 21:44:22 -0000	1.362
+++ emacs/src/fns.c	1 May 2004 04:04:32 -0000
@@ -1603,10 +1603,10 @@
 }
 
 DEFUN ("rassq", Frassq, Srassq, 2, 2, 0,
-       doc: /* Return non-nil if KEY is `eq' to the cdr of an element of LIST.
-The value is actually the first element of LIST whose cdr is KEY.  */)
-     (key, list)
-     register Lisp_Object key;
+       doc: /* Return non-nil if VALUE is `eq' to the cdr of an element of LIST.
+The value is actually the first element of LIST whose cdr is VALUE.  */)
+     (value, list)
+     register Lisp_Object value;
      Lisp_Object list;
 {
   Lisp_Object result;
@@ -1615,19 +1615,19 @@
     {
       if (!CONSP (list)
 	  || (CONSP (XCAR (list))
-	      && EQ (XCDR (XCAR (list)), key)))
+	      && EQ (XCDR (XCAR (list)), value)))
 	break;
 
       list = XCDR (list);
       if (!CONSP (list)
 	  || (CONSP (XCAR (list))
-	      && EQ (XCDR (XCAR (list)), key)))
+	      && EQ (XCDR (XCAR (list)), value)))
 	break;
 
       list = XCDR (list);
       if (!CONSP (list)
 	  || (CONSP (XCAR (list))
-	      && EQ (XCDR (XCAR (list)), key)))
+	      && EQ (XCDR (XCAR (list)), value)))
 	break;
 
       list = XCDR (list);
@@ -1645,10 +1645,10 @@
 }
 
 DEFUN ("rassoc", Frassoc, Srassoc, 2, 2, 0,
-       doc: /* Return non-nil if KEY is `equal' to the cdr of an element of LIST.
-The value is actually the first element of LIST whose cdr equals KEY.  */)
-     (key, list)
-     Lisp_Object key, list;
+       doc: /* Return non-nil if VALUE is `equal' to the cdr of an element of LIST.
+The value is actually the first element of LIST whose cdr equals VALUE.  */)
+     (value, list)
+     Lisp_Object value, list;
 {
   Lisp_Object result, cdr;
 
@@ -1657,21 +1657,21 @@
       if (!CONSP (list)
 	  || (CONSP (XCAR (list))
 	      && (cdr = XCDR (XCAR (list)),
-		  EQ (cdr, key) || !NILP (Fequal (cdr, key)))))
+		  EQ (cdr, value) || !NILP (Fequal (cdr, value)))))
 	break;
 
       list = XCDR (list);
       if (!CONSP (list)
 	  || (CONSP (XCAR (list))
 	      && (cdr = XCDR (XCAR (list)),
-		  EQ (cdr, key) || !NILP (Fequal (cdr, key)))))
+		  EQ (cdr, value) || !NILP (Fequal (cdr, value)))))
 	break;
 
       list = XCDR (list);
       if (!CONSP (list)
 	  || (CONSP (XCAR (list))
 	      && (cdr = XCDR (XCAR (list)),
-		  EQ (cdr, key) || !NILP (Fequal (cdr, key)))))
+		  EQ (cdr, value) || !NILP (Fequal (cdr, value)))))
 	break;
 
       list = XCDR (list);

-- 
Juri Linkov
http://www.jurta.org/emacs/