[Emacs-diffs] Changes to emacs/lisp/ibuffer.el

[Colin Walters]

Index: emacs/lisp/ibuffer.el
diff -c emacs/lisp/ibuffer.el:1.27 emacs/lisp/ibuffer.el:1.28
*** emacs/lisp/ibuffer.el:1.27  Thu May  9 17:30:21 2002
--- emacs/lisp/ibuffer.el       Thu May  9 23:35:35 2002
***************
*** 536,553 ****
                  :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)
                  :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)                 
                  :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)))
      (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)                 
--- 536,555 ----
                  :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
!                              (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) (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
!                              (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)