702 |
(define-ibuffer-sorter mode-name |
(define-ibuffer-sorter mode-name |
703 |
"Sort the buffers by their mode name. |
"Sort the buffers by their mode name. |
704 |
Ordering is lexicographic." |
Ordering is lexicographic." |
705 |
(:description "mode name") |
(:description "major mode name") |
706 |
(string-lessp (downcase |
(string-lessp (downcase |
707 |
(with-current-buffer |
(with-current-buffer |
708 |
(car a) |
(car a) |
1014 |
(ibuffer-mark-on-buffer |
(ibuffer-mark-on-buffer |
1015 |
#'(lambda (buf) |
#'(lambda (buf) |
1016 |
(with-current-buffer buf |
(with-current-buffer buf |
1017 |
(or |
(memq major-mode ibuffer-help-buffer-modes))))) |
|
(eq major-mode 'apropos-mode) |
|
|
(eq major-mode 'help-mode) |
|
|
(eq major-mode 'info-mode)))))) |
|
1018 |
|
|
1019 |
;;;###autoload |
;;;###autoload |
1020 |
(defun ibuffer-mark-old-buffers () |
(defun ibuffer-mark-old-buffers () |