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

[Colin Walters]

Index: emacs/lisp/ibuffer.el
diff -c emacs/lisp/ibuffer.el:1.16 emacs/lisp/ibuffer.el:1.17
*** emacs/lisp/ibuffer.el:1.16  Wed Apr 10 15:11:45 2002
--- emacs/lisp/ibuffer.el       Thu Apr 11 14:37:25 2002
***************
*** 1679,1692 ****
             (push (cons buf mark) ibuffer-current-state-list-tmp)))))
      (nreverse ibuffer-current-state-list-tmp)))
  
! (defun ibuffer-current-buffers-with-marks (bufs)
    "Return a list like (BUF . MARK) of all open buffers."
    (let ((bufs (ibuffer-current-state-list)))
      (mapcar #'(lambda (buf) (let ((e (assq buf bufs)))
                              (if e
                                  e
                                (cons buf ? ))))
!           bufs)))
  
  (defun ibuffer-buf-matches-predicates (buf predicates)
    (let ((hit nil)
--- 1679,1692 ----
             (push (cons buf mark) ibuffer-current-state-list-tmp)))))
      (nreverse ibuffer-current-state-list-tmp)))
  
! (defun ibuffer-current-buffers-with-marks (curbufs)
    "Return a list like (BUF . MARK) of all open buffers."
    (let ((bufs (ibuffer-current-state-list)))
      (mapcar #'(lambda (buf) (let ((e (assq buf bufs)))
                              (if e
                                  e
                                (cons buf ? ))))
!           curbufs)))
  
  (defun ibuffer-buf-matches-predicates (buf predicates)
    (let ((hit nil)