Mercurial > emacs
comparison lisp/ibuffer.el @ 45220:f7c52a0eaf23
Refine previous change.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Fri, 10 May 2002 03:35:35 +0000 |
| parents | 162082d00c8f |
| children | 087cbd1a5087 |
comparison
equal
deleted
inserted
replaced
| 45219:a7b0e54f67d2 | 45220:f7c52a0eaf23 |
|---|---|
| 534 (define-key-after map [menu-bar view filter pop-filter] | 534 (define-key-after map [menu-bar view filter pop-filter] |
| 535 '(menu-item "Remove top filter" ibuffer-pop-filter | 535 '(menu-item "Remove top filter" ibuffer-pop-filter |
| 536 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers))) | 536 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers))) |
| 537 (define-key-after map [menu-bar view filter or-filter] | 537 (define-key-after map [menu-bar view filter or-filter] |
| 538 '(menu-item "OR top two filters" ibuffer-or-filter | 538 '(menu-item "OR top two filters" ibuffer-or-filter |
| 539 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers) | 539 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers |
| 540 (cdr ibuffer-filtering-qualifiers)) | |
| 540 :help "Create a new filter which is the logical OR of the top two filters")) | 541 :help "Create a new filter which is the logical OR of the top two filters")) |
| 541 (define-key-after map [menu-bar view filter negate-filter] | 542 (define-key-after map [menu-bar view filter negate-filter] |
| 542 '(menu-item "Negate top filter" ibuffer-negate-filter | 543 '(menu-item "Negate top filter" ibuffer-negate-filter |
| 543 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers))) | 544 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers))) |
| 544 (define-key-after map [menu-bar view filter decompose-filter] | 545 (define-key-after map [menu-bar view filter decompose-filter] |
| 545 '(menu-item "Decompose top filter" ibuffer-decompose-filter | 546 '(menu-item "Decompose top filter" ibuffer-decompose-filter |
| 546 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers) | 547 :enable (and (featurep 'ibuf-ext) (memq (car ibuffer-filtering-qualifiers) '(or saved not))) |
| 547 :help "Break down a complex filter like OR or NOT")) | 548 :help "Break down a complex filter like OR or NOT")) |
| 548 (define-key-after map [menu-bar view filter exchange-filters] | 549 (define-key-after map [menu-bar view filter exchange-filters] |
| 549 '(menu-item "Swap top two filters" ibuffer-exchange-filters | 550 '(menu-item "Swap top two filters" ibuffer-exchange-filters |
| 550 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers))) | 551 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers |
| 552 (cdr ibuffer-filtering-qualifiers)))) | |
| 551 (define-key-after map [menu-bar view filter save-filters] | 553 (define-key-after map [menu-bar view filter save-filters] |
| 552 '(menu-item "Save current filters permanently..." ibuffer-save-filters | 554 '(menu-item "Save current filters permanently..." ibuffer-save-filters |
| 553 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers) | 555 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers) |
| 554 :help "Use a mnemnonic name to store current filter stack")) | 556 :help "Use a mnemnonic name to store current filter stack")) |
| 555 (define-key-after map [menu-bar view filter switch-to-saved-filters] | 557 (define-key-after map [menu-bar view filter switch-to-saved-filters] |