[Emacs-diffs] Changes to emacs/src/fns.c

[Luc Teirlinck]

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.347 emacs/src/fns.c:1.348
*** emacs/src/fns.c:1.347       Fri Nov 21 10:58:15 2003
--- emacs/src/fns.c     Fri Nov 21 22:48:24 2003
***************
*** 1494,1500 ****
  
  DEFUN ("assq", Fassq, Sassq, 2, 2, 0,
         doc: /* Return non-nil if KEY is `eq' to the car of an element of LIST.
! The value is actually the element of LIST whose car is KEY.
  Elements of LIST that are not conses are ignored.  */)
       (key, list)
       Lisp_Object key, list;
--- 1494,1500 ----
  
  DEFUN ("assq", Fassq, Sassq, 2, 2, 0,
         doc: /* Return non-nil if KEY is `eq' to the car of an element of LIST.
! The value is actually the first element of LIST whose car is KEY.
  Elements of LIST that are not conses are ignored.  */)
       (key, list)
       Lisp_Object key, list;
***************
*** 1551,1557 ****
  
  DEFUN ("assoc", Fassoc, Sassoc, 2, 2, 0,
         doc: /* Return non-nil if KEY is `equal' to the car of an element of 
LIST.
! The value is actually the element of LIST whose car equals KEY.  */)
         (key, list)
       Lisp_Object key, list;
  {
--- 1551,1557 ----
  
  DEFUN ("assoc", Fassoc, Sassoc, 2, 2, 0,
         doc: /* Return non-nil if KEY is `equal' to the car of an element of 
LIST.
! The value is actually the first element of LIST whose car equals KEY.  */)
         (key, list)
       Lisp_Object key, list;
  {
***************
*** 1595,1601 ****
  
  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 element of LIST whose cdr is KEY.  */)
       (key, list)
       register Lisp_Object key;
       Lisp_Object list;
--- 1595,1601 ----
  
  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;
       Lisp_Object list;
***************
*** 1637,1643 ****
  
  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 element of LIST whose cdr equals KEY.  */)
       (key, list)
       Lisp_Object key, list;
  {
--- 1637,1643 ----
  
  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;
  {