[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el |
Date: |
Thu, 24 Apr 2003 19:14:12 -0400 |
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))
- [Emacs-diffs] Changes to emacs/lisp/subr.el, Kenichi Handa, 2003/04/02
- [Emacs-diffs] Changes to emacs/lisp/subr.el, Kenichi Handa, 2003/04/02
- [Emacs-diffs] Changes to emacs/lisp/subr.el, Richard M. Stallman, 2003/04/03
- [Emacs-diffs] Changes to emacs/lisp/subr.el, Miles Bader, 2003/04/04
- [Emacs-diffs] Changes to emacs/lisp/subr.el, Vinicius Jose Latorre, 2003/04/04
- [Emacs-diffs] Changes to emacs/lisp/subr.el, Richard M. Stallman, 2003/04/08
- [Emacs-diffs] Changes to emacs/lisp/subr.el,
Richard M. Stallman <=