Mercurial > emacs
changeset 44482:510e978b6292
(ibuffer-canonicalize-state-list): Delete unused function.
(ibuffer-current-buffers-with-marks): Don't call `buffer-list'
ourselves; take it as an argument. Caller updated.
(ibuffer-mode): Make mode-class special.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Wed, 10 Apr 2002 19:11:45 +0000 |
| parents | a0dc261f564a |
| children | 366f1df9138b |
| files | lisp/ibuffer.el |
| diffstat | 1 files changed, 4 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuffer.el Wed Apr 10 19:10:23 2002 +0000 +++ b/lisp/ibuffer.el Wed Apr 10 19:11:45 2002 +0000 @@ -1679,19 +1679,14 @@ (push (cons buf mark) ibuffer-current-state-list-tmp))))) (nreverse ibuffer-current-state-list-tmp))) -(defsubst ibuffer-canonicalize-state-list (bmarklist) - "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 () +(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 ? )))) - (buffer-list)))) + bufs))) (defun ibuffer-buf-matches-predicates (buf predicates) (let ((hit nil) @@ -1905,7 +1900,7 @@ (buffer-name (cadr bufs)))) (caddr bufs) (cadr bufs)) - (ibuffer-current-buffers-with-marks) + (ibuffer-current-buffers-with-marks bufs) arg))) (when (null blist) (if (and (featurep 'ibuf-ext) @@ -2048,6 +2043,7 @@ (message "Commands: m, u, t, RET, g, k, S, D, Q; q to quit; h for help"))) (select-window owin)))))) +(put 'ibuffer-mode 'mode-class 'special) (defun ibuffer-mode () "A major mode for viewing a list of buffers. In ibuffer, you can conveniently perform many operations on the