[Emacs-diffs] Changes to emacs/lisp/subr.el

[Richard M. Stallman]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.349 emacs/lisp/subr.el:1.350
*** emacs/lisp/subr.el:1.349    Tue Apr  8 21:36:28 2003
--- emacs/lisp/subr.el  Thu Apr 24 19:14:12 2003
***************
*** 2048,2057 ****
  
  (defun assq-delete-all (key alist)
    "Delete from ALIST all elements whose car is KEY.
! Return the modified alist."
    (let ((tail alist))
      (while tail
!       (if (eq (car (car tail)) key)
          (setq alist (delq (car tail) alist)))
        (setq tail (cdr tail)))
      alist))
--- 2048,2058 ----
  
  (defun assq-delete-all (key alist)
    "Delete from ALIST all elements whose car is KEY.
! Return the modified alist.
! Elements of ALIST that are not conses are ignored."
    (let ((tail alist))
      (while tail
!       (if (and (consp (car tail)) (eq (car (car tail)) key))
          (setq alist (delq (car tail) alist)))
        (setq tail (cdr tail)))
      alist))