Mercurial > emacs
changeset 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 | 04772d747469 |
| children | 0a47345ea1c3 |
| files | lisp/ChangeLog lisp/ibuf-ext.el lisp/ibuffer.el |
| diffstat | 3 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jan 03 21:56:36 2008 +0000 +++ b/lisp/ChangeLog Thu Jan 03 22:01:45 2008 +0000 @@ -1,5 +1,8 @@ 2008-01-03 Stefan Monnier <monnier@iro.umontreal.ca> + * ibuf-ext.el (mode-name sorter, ibuffer-mark-by-mode-regexp): + * ibuffer.el (mode column): Use format-mode-line. + * server.el (server-create-window-system-frame): Remove workaround for a bug that has been fixed.
--- 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)
--- a/lisp/ibuffer.el Thu Jan 03 21:56:36 2008 +0000 +++ b/lisp/ibuffer.el Thu Jan 03 22:01:45 2008 +0000 @@ -1722,7 +1722,7 @@ ('mouse-face 'highlight 'keymap ibuffer-mode-name-map 'help-echo "mouse-2: filter by this mode")) - (format "%s" mode-name)) + (format-mode-line mode-name)) (define-ibuffer-column process (:summarizer