1679 |
(push (cons buf mark) ibuffer-current-state-list-tmp))))) |
(push (cons buf mark) ibuffer-current-state-list-tmp))))) |
1680 |
(nreverse ibuffer-current-state-list-tmp))) |
(nreverse ibuffer-current-state-list-tmp))) |
1681 |
|
|
1682 |
(defun ibuffer-current-buffers-with-marks (bufs) |
(defun ibuffer-current-buffers-with-marks (curbufs) |
1683 |
"Return a list like (BUF . MARK) of all open buffers." |
"Return a list like (BUF . MARK) of all open buffers." |
1684 |
(let ((bufs (ibuffer-current-state-list))) |
(let ((bufs (ibuffer-current-state-list))) |
1685 |
(mapcar #'(lambda (buf) (let ((e (assq buf bufs))) |
(mapcar #'(lambda (buf) (let ((e (assq buf bufs))) |
1686 |
(if e |
(if e |
1687 |
e |
e |
1688 |
(cons buf ? )))) |
(cons buf ? )))) |
1689 |
bufs))) |
curbufs))) |
1690 |
|
|
1691 |
(defun ibuffer-buf-matches-predicates (buf predicates) |
(defun ibuffer-buf-matches-predicates (buf predicates) |
1692 |
(let ((hit nil) |
(let ((hit nil) |