(ibuffer-mark-help-buffers): Use `ibuffer-help-buffer-modes'.
(define-ibuffer-sorter mode-name
"Sort the buffers by their mode name.
Ordering is lexicographic."
- (:description "mode name")
+ (:description "major mode name")
(string-lessp (downcase
(with-current-buffer
(car a)
(ibuffer-mark-on-buffer
#'(lambda (buf)
(with-current-buffer buf
- (or
- (eq major-mode 'apropos-mode)
- (eq major-mode 'help-mode)
- (eq major-mode 'info-mode))))))
+ (memq major-mode ibuffer-help-buffer-modes)))))
;;;###autoload
(defun ibuffer-mark-old-buffers ()