From 9dfee9c2713c9d3322519e90b819dbf7b5889103 Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 3 Jan 2008 22:01:45 +0000
Subject: * ibuf-ext.el (mode-name sorter, ibuffer-mark-by-mode-regexp): *
 ibuffer.el (mode column): Use format-mode-line.

---
 lisp/ibuf-ext.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lisp/ibuf-ext.el')

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 6a34ca0f4e4..8f252024774 100644
--- 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)
-- 
cgit v1.2.1