Mercurial > emacs
comparison lisp/ibuf-ext.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 | 3055282f9d8f |
| children | 107ccd98fa12 |
comparison
equal
deleted
inserted
replaced
| 87542:04772d747469 | 87543:d8fd4b494f77 |
|---|---|
| 1132 Ordering is lexicographic." | 1132 Ordering is lexicographic." |
| 1133 (:description "major mode name") | 1133 (:description "major mode name") |
| 1134 (string-lessp (downcase | 1134 (string-lessp (downcase |
| 1135 (with-current-buffer | 1135 (with-current-buffer |
| 1136 (car a) | 1136 (car a) |
| 1137 mode-name)) | 1137 (format-mode-line mode-name))) |
| 1138 (downcase | 1138 (downcase |
| 1139 (with-current-buffer | 1139 (with-current-buffer |
| 1140 (car b) | 1140 (car b) |
| 1141 mode-name)))) | 1141 (format-mode-line mode-name))))) |
| 1142 | 1142 |
| 1143 ;;;###autoload (autoload 'ibuffer-do-sort-by-alphabetic "ibuf-ext") | 1143 ;;;###autoload (autoload 'ibuffer-do-sort-by-alphabetic "ibuf-ext") |
| 1144 (define-ibuffer-sorter alphabetic | 1144 (define-ibuffer-sorter alphabetic |
| 1145 "Sort the buffers by their names. | 1145 "Sort the buffers by their names. |
| 1146 Ordering is lexicographic." | 1146 Ordering is lexicographic." |
| 1384 "Mark all buffers whose major mode matches REGEXP." | 1384 "Mark all buffers whose major mode matches REGEXP." |
| 1385 (interactive "sMark by major mode (regexp): ") | 1385 (interactive "sMark by major mode (regexp): ") |
| 1386 (ibuffer-mark-on-buffer | 1386 (ibuffer-mark-on-buffer |
| 1387 #'(lambda (buf) | 1387 #'(lambda (buf) |
| 1388 (with-current-buffer buf | 1388 (with-current-buffer buf |
| 1389 (string-match regexp mode-name))))) | 1389 (string-match regexp (format-mode-line mode-name)))))) |
| 1390 | 1390 |
| 1391 ;;;###autoload | 1391 ;;;###autoload |
| 1392 (defun ibuffer-mark-by-file-name-regexp (regexp) | 1392 (defun ibuffer-mark-by-file-name-regexp (regexp) |
| 1393 "Mark all buffers whose file name matches REGEXP." | 1393 "Mark all buffers whose file name matches REGEXP." |
| 1394 (interactive "sMark by file name (regexp): ") | 1394 (interactive "sMark by file name (regexp): ") |