From: Colin Walters <walters@gnu.org>
Date: Wed, 27 Mar 2002 22:19:40 +0000 (+0000)
Subject: (sorter mode-name): Doc fix.
X-Git-Tag: ttn-vms-21-2-B4~15949
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0fcbf8d6018cd4363d42fb17636739002f571821;p=emacs.git

(sorter mode-name): Doc fix.
(ibuffer-mark-help-buffers): Use `ibuffer-help-buffer-modes'.
---

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 58240deb162..d1e62154217 100644
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -702,7 +702,7 @@ Ordering is lexicographic."
 (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)
@@ -1014,10 +1014,7 @@ You can then feed the file name(s) to other commands with C-y.
   (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 ()