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

[Lute Kamstra]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.440 emacs/lisp/subr.el:1.441
*** emacs/lisp/subr.el:1.440    Tue Apr 19 18:11:26 2005
--- emacs/lisp/subr.el  Thu Apr 21 21:15:51 2005
***************
*** 2376,2390 ****
        (eq (car-safe object) 'lambda)))
  
  (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))
  
  (defun make-temp-file (prefix &optional dir-flag suffix)
    "Create a temporary file.
--- 2376,2409 ----
        (eq (car-safe object) 'lambda)))
  
  (defun assq-delete-all (key alist)
!   "Delete from ALIST all elements whose car is `eq' to KEY.
  Return the modified alist.
  Elements of ALIST that are not conses are ignored."
!   (while (and (consp (car alist)) 
!             (eq (car (car alist)) key))
!     (setq alist (cdr alist)))
!   (let ((tail alist) tail-cdr)
!     (while (setq tail-cdr (cdr tail))
!       (if (and (consp (car tail-cdr))
!              (eq (car (car tail-cdr)) key))
!         (setcdr tail (cdr tail-cdr))
!       (setq tail tail-cdr))))
!   alist)
! 
! (defun rassq-delete-all (value alist)
!   "Delete from ALIST all elements whose cdr is `eq' to VALUE.
! Return the modified alist.
! Elements of ALIST that are not conses are ignored."
!   (while (and (consp (car alist)) 
!             (eq (cdr (car alist)) value))
!     (setq alist (cdr alist)))
!   (let ((tail alist) tail-cdr)
!     (while (setq tail-cdr (cdr tail))
!       (if (and (consp (car tail-cdr))
!              (eq (cdr (car tail-cdr)) value))
!         (setcdr tail (cdr tail-cdr))
!       (setq tail tail-cdr))))
!   alist)
  
  (defun make-temp-file (prefix &optional dir-flag suffix)
    "Create a temporary file.