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 |
(defsubst ibuffer-canonicalize-state-list (bmarklist) |
(defun ibuffer-current-buffers-with-marks (bufs) |
|
"Order BMARKLIST in the same way as the current buffer list." |
|
|
(delq nil |
|
|
(mapcar #'(lambda (buf) (assq buf bmarklist)) (buffer-list)))) |
|
|
|
|
|
(defun ibuffer-current-buffers-with-marks () |
|
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 |
(buffer-list)))) |
bufs))) |
1690 |
|
|
1691 |
(defun ibuffer-buf-matches-predicates (buf predicates) |
(defun ibuffer-buf-matches-predicates (buf predicates) |
1692 |
(let ((hit nil) |
(let ((hit nil) |
1900 |
(buffer-name (cadr bufs)))) |
(buffer-name (cadr bufs)))) |
1901 |
(caddr bufs) |
(caddr bufs) |
1902 |
(cadr bufs)) |
(cadr bufs)) |
1903 |
(ibuffer-current-buffers-with-marks) |
(ibuffer-current-buffers-with-marks bufs) |
1904 |
arg))) |
arg))) |
1905 |
(when (null blist) |
(when (null blist) |
1906 |
(if (and (featurep 'ibuf-ext) |
(if (and (featurep 'ibuf-ext) |
2043 |
(message "Commands: m, u, t, RET, g, k, S, D, Q; q to quit; h for help"))) |
(message "Commands: m, u, t, RET, g, k, S, D, Q; q to quit; h for help"))) |
2044 |
(select-window owin)))))) |
(select-window owin)))))) |
2045 |
|
|
2046 |
|
(put 'ibuffer-mode 'mode-class 'special) |
2047 |
(defun ibuffer-mode () |
(defun ibuffer-mode () |
2048 |
"A major mode for viewing a list of buffers. |
"A major mode for viewing a list of buffers. |
2049 |
In ibuffer, you can conveniently perform many operations on the |
In ibuffer, you can conveniently perform many operations on the |