mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 14:02:07 -08:00
Code Issues Projects Releases Wiki Activity

Fix previous change.

Browse source
This commit is contained in:
Colin Walters 2002-04-11 18:37:25 +00:00
parent bc6f379196
commit 851476d4ab
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ibuffer.el
View file

@ -1679,14 +1679,14 @@ If optional argument INCLUDE-LINES is non-nil, return a list like
(push (cons buf mark) ibuffer-current-state-list-tmp)))))
(nreverse ibuffer-current-state-list-tmp)))
(defun ibuffer-current-buffers-with-marks (bufs)
(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 ? ))))
bufs)))
curbufs)))
(defun ibuffer-buf-matches-predicates (buf predicates)
(let ((hit nil)