]> code.delx.au - gnu-emacs/commitdiff
Refine previous change.
authorColin Walters <walters@gnu.org>
Fri, 10 May 2002 03:35:35 +0000 (03:35 +0000)
committerColin Walters <walters@gnu.org>
Fri, 10 May 2002 03:35:35 +0000 (03:35 +0000)
lisp/ibuffer.el

index 17580d8a79a06d764feffa4eeb01a20792d6ff30..36efe77e4b6f4a88fb28133a164d94804f8dee8a 100644 (file)
@@ -536,18 +536,20 @@ directory, like `default-directory'."
                  :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers)))
     (define-key-after map [menu-bar view filter or-filter]
       '(menu-item "OR top two filters" ibuffer-or-filter
-                 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers)
+                 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers
+                              (cdr ibuffer-filtering-qualifiers))
                  :help "Create a new filter which is the logical OR of the top two filters"))
     (define-key-after map [menu-bar view filter negate-filter]
       '(menu-item "Negate top filter" ibuffer-negate-filter
                  :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers)))
     (define-key-after map [menu-bar view filter decompose-filter]
       '(menu-item "Decompose top filter" ibuffer-decompose-filter
-                 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers)                 
+                 :enable (and (featurep 'ibuf-ext) (memq (car ibuffer-filtering-qualifiers) '(or saved not)))
                  :help "Break down a complex filter like OR or NOT"))
     (define-key-after map [menu-bar view filter exchange-filters]
       '(menu-item "Swap top two filters" ibuffer-exchange-filters
-                 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers)))
+                 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers
+                              (cdr ibuffer-filtering-qualifiers))))
     (define-key-after map [menu-bar view filter save-filters]
       '(menu-item "Save current filters permanently..." ibuffer-save-filters
                  :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers)