Mercurial > emacs
comparison lisp/ibuffer.el @ 87543:d8fd4b494f77
* ibuf-ext.el (mode-name sorter, ibuffer-mark-by-mode-regexp):
* ibuffer.el (mode column): Use format-mode-line.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 03 Jan 2008 22:01:45 +0000 |
| parents | f19c915a241f |
| children | 107ccd98fa12 |
comparison
equal
deleted
inserted
replaced
| 87542:04772d747469 | 87543:d8fd4b494f77 |
|---|---|
| 1720 :header-mouse-map ibuffer-mode-header-map | 1720 :header-mouse-map ibuffer-mode-header-map |
| 1721 :props | 1721 :props |
| 1722 ('mouse-face 'highlight | 1722 ('mouse-face 'highlight |
| 1723 'keymap ibuffer-mode-name-map | 1723 'keymap ibuffer-mode-name-map |
| 1724 'help-echo "mouse-2: filter by this mode")) | 1724 'help-echo "mouse-2: filter by this mode")) |
| 1725 (format "%s" mode-name)) | 1725 (format-mode-line mode-name)) |
| 1726 | 1726 |
| 1727 (define-ibuffer-column process | 1727 (define-ibuffer-column process |
| 1728 (:summarizer | 1728 (:summarizer |
| 1729 (lambda (strings) | 1729 (lambda (strings) |
| 1730 (let ((total (length (delete "" strings)))) | 1730 (let ((total (length (delete "" strings)))) |