* ibuf-ext.el (mode-name sorter, ibuffer-mark-by-mode-regexp):

* ibuffer.el (mode column): Use format-mode-line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5c7d5c255dd8473b714f5d56a528529999482d17..cb6f768d82c9b004a6a3a1c6458457fbc31eaa80 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
 

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 6a34ca0f4e4c3d6f9425d3878532c8c29c910dfc..8f252024774430054d3a615ee99f3f65e02382a5 100644 (file)
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -1134,11 +1134,11 @@ Ordering is lexicographic."
   (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 @@ You can then feed the file name(s) to other commands with \\[yank]."
   (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)

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index aa436a969715cdc8fdf5105cace0f0bfca830ffd..2a6f6d9c1a8139301abdab2181715a370359b093 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1722,7 +1722,7 @@ If point is on a group name, this function operates on that group."
    ('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