# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1199397705 0
# Node ID d8fd4b494f77824ed61a54d89808da3535acb6a8
# Parent  04772d747469e35ef5255bf51fdd8d5c3513760d
* ibuf-ext.el (mode-name sorter, ibuffer-mark-by-mode-regexp):
* ibuffer.el (mode column): Use format-mode-line.

diff -r 04772d747469 -r d8fd4b494f77 lisp/ChangeLog
--- 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.
 
diff -r 04772d747469 -r d8fd4b494f77 lisp/ibuf-ext.el
--- 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)
diff -r 04772d747469 -r d8fd4b494f77 lisp/ibuffer.el
--- 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