Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/lisp/ibuf-ext.el Thu Jan 03 21:56:36 2008 +0000 +++ b/lisp/ibuf-ext.el Thu Jan 03 22:01:45 2008 +0000 @@ -1134,11 +1134,11 @@ (string-lessp (downcase (with-current-buffer (car a) - mode-name)) + (format-mode-line mode-name))) (downcase (with-current-buffer (car b) - mode-name)))) + (format-mode-line mode-name))))) ;;;###autoload (autoload 'ibuffer-do-sort-by-alphabetic "ibuf-ext") (define-ibuffer-sorter alphabetic @@ -1386,7 +1386,7 @@ (ibuffer-mark-on-buffer #'(lambda (buf) (with-current-buffer buf - (string-match regexp mode-name))))) + (string-match regexp (format-mode-line mode-name)))))) ;;;###autoload (defun ibuffer-mark-by-file-name-regexp (regexp)