From 9dfee9c2713c9d3322519e90b819dbf7b5889103 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 3 Jan 2008 22:01:45 +0000 Subject: [PATCH] * ibuf-ext.el (mode-name sorter, ibuffer-mark-by-mode-regexp): * ibuffer.el (mode column): Use format-mode-line. --- lisp/ChangeLog | 3 +++ lisp/ibuf-ext.el | 6 +++--- lisp/ibuffer.el | 2 +- 3 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5c7d5c255dd..cb6f768d82c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-01-03 Stefan Monnier + * 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 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) diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index aa436a96971..2a6f6d9c1a8 100644 --- 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