# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1028613862 0
# Node ID 86fa1b4393a2f4d0f8e90d019672b191e6f0da6f
# Parent  aa2c0066a6bf7e03153ddd1ff9072c63742bbae0
(ibuffer-mode-map): Added ibuffer-filter-by-used-mode.
(ibuffer-mode-map): Added ibuffer-filter-by-used-mode.
(ibuffer-mode): Added ibuffer-filter-by-used-mode to doc string.

diff -r aa2c0066a6bf -r 86fa1b4393a2 lisp/ibuffer.el
--- a/lisp/ibuffer.el	Tue Aug 06 06:03:59 2002 +0000
+++ b/lisp/ibuffer.el	Tue Aug 06 06:04:22 2002 +0000
@@ -392,6 +392,7 @@
     (define-key map (kbd "s m") 'ibuffer-do-sort-by-major-mode)
 
     (define-key map (kbd "/ m") 'ibuffer-filter-by-mode)
+    (define-key map (kbd "/ M") 'ibuffer-filter-by-used-mode)
     (define-key map (kbd "/ n") 'ibuffer-filter-by-name)
     (define-key map (kbd "/ c") 'ibuffer-filter-by-content)
     (define-key map (kbd "/ e") 'ibuffer-filter-by-predicate)
@@ -520,6 +521,8 @@
 		  :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers)))
     (define-key-after map [menu-bar view filter filter-by-mode]
       '(menu-item "Add filter by major mode..." ibuffer-filter-by-mode))
+    (define-key-after map [menu-bar view filter filter-by-mode]
+      '(menu-item "Add filter by major mode in use..." ibuffer-filter-by-used-mode))
     (define-key-after map [menu-bar view filter filter-by-name]
       '(menu-item "Add filter by buffer name..." ibuffer-filter-by-name))
     (define-key-after map [menu-bar view filter filter-by-filename]
@@ -2269,6 +2272,7 @@
 Filtering commands:
 
   '\\[ibuffer-filter-by-mode]' - Add a filter by major mode.
+  '\\[ibuffer-filter-by-used-mode]' - Add a filter by major mode now in use.
   '\\[ibuffer-filter-by-name]' - Add a filter by buffer name.
   '\\[ibuffer-filter-by-content]' - Add a filter by buffer content.
   '\\[ibuffer-filter-by-filename]' - Add a filter by filename.