Commit 851476d4 authored by Colin Walters's avatar Colin Walters
Browse files

Fix previous change.

parent bc6f3791
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment