From 10cf9a4305550c1eb473718c256b8e6544aaea43 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Tue, 26 Feb 2002 19:53:56 +0000 Subject: [PATCH] (sorter mode-name): New. (ibuffer-do-occur): Don't quote ibuffer-marked-char. --- lisp/ibuf-ext.el | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 697583f288c..bcd0a5a6c22 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -697,6 +697,19 @@ Ordering is lexicographic." (car b) major-mode))))) +(define-ibuffer-sorter mode-name + "Sort the buffers by their mode name. +Ordering is lexicographic." + (:description "mode name") + (string-lessp (downcase + (symbol-name (with-current-buffer + (car a) + mode-name))) + (downcase + (symbol-name (with-current-buffer + (car b) + mode-name))))) + (define-ibuffer-sorter alphabetic "Sort the buffers by their names. Ordering is lexicographic." @@ -1139,7 +1152,7 @@ defaults to one." (< nlines 0)) (setq nlines 1)) (when (zerop (ibuffer-count-marked-lines)) - (ibuffer-set-mark 'ibuffer-marked-char)) + (ibuffer-set-mark ibuffer-marked-char)) (let ((ibuffer-do-occur-bufs nil)) ;; Accumulate a list of marked buffers (ibuffer-map-marked-lines -- 2.39.2