Mercurial > emacs
comparison lisp/ibuffer.el @ 45213:162082d00c8f
(ibuffer-mode-map): Add :enable guards for `ibuffer-filter-disable',
`ibuffer-pop-filter', `ibuffer-or-filter', `ibuffer-negate-filter',
`ibuffer-decompose-filter', `ibuffer-save-filters',
`ibuffer-switch-to-saved-filters', `ibuffer-delete-saved-filters',
`ibuffer-save-filter-groups', `ibuffer-switch-to-saved-filter-groups',
`ibuffer-delete-saved-filter-groups'.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Thu, 09 May 2002 21:30:21 +0000 |
| parents | 91602250e999 |
| children | f7c52a0eaf23 |
comparison
equal
deleted
inserted
replaced
| 45212:580bcb04cd4f | 45213:162082d00c8f |
|---|---|
| 513 | 513 |
| 514 (define-key-after map [menu-bar view filter] | 514 (define-key-after map [menu-bar view filter] |
| 515 (cons "Filter" (make-sparse-keymap "Filter"))) | 515 (cons "Filter" (make-sparse-keymap "Filter"))) |
| 516 | 516 |
| 517 (define-key-after map [menu-bar view filter filter-disable] | 517 (define-key-after map [menu-bar view filter filter-disable] |
| 518 '(menu-item "Disable all filtering" ibuffer-filter-disable)) | 518 '(menu-item "Disable all filtering" ibuffer-filter-disable |
| 519 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers))) | |
| 519 (define-key-after map [menu-bar view filter filter-by-mode] | 520 (define-key-after map [menu-bar view filter filter-by-mode] |
| 520 '(menu-item "Add filter by major mode..." ibuffer-filter-by-mode)) | 521 '(menu-item "Add filter by major mode..." ibuffer-filter-by-mode)) |
| 521 (define-key-after map [menu-bar view filter filter-by-name] | 522 (define-key-after map [menu-bar view filter filter-by-name] |
| 522 '(menu-item "Add filter by buffer name..." ibuffer-filter-by-name)) | 523 '(menu-item "Add filter by buffer name..." ibuffer-filter-by-name)) |
| 523 (define-key-after map [menu-bar view filter filter-by-filename] | 524 (define-key-after map [menu-bar view filter filter-by-filename] |
| 529 (define-key-after map [menu-bar view filter filter-by-content] | 530 (define-key-after map [menu-bar view filter filter-by-content] |
| 530 '(menu-item "Add filter by content (regexp)..." ibuffer-filter-by-content)) | 531 '(menu-item "Add filter by content (regexp)..." ibuffer-filter-by-content)) |
| 531 (define-key-after map [menu-bar view filter filter-by-predicate] | 532 (define-key-after map [menu-bar view filter filter-by-predicate] |
| 532 '(menu-item "Add filter by Lisp predicate..." ibuffer-filter-by-predicate)) | 533 '(menu-item "Add filter by Lisp predicate..." ibuffer-filter-by-predicate)) |
| 533 (define-key-after map [menu-bar view filter pop-filter] | 534 (define-key-after map [menu-bar view filter pop-filter] |
| 534 '(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))) | |
| 535 (define-key-after map [menu-bar view filter or-filter] | 537 (define-key-after map [menu-bar view filter or-filter] |
| 536 '(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) | |
| 537 :help "Create a new filter which is the logical OR of the top two filters")) | 540 :help "Create a new filter which is the logical OR of the top two filters")) |
| 538 (define-key-after map [menu-bar view filter negate-filter] | 541 (define-key-after map [menu-bar view filter negate-filter] |
| 539 '(menu-item "Negate top filter" ibuffer-negate-filter)) | 542 '(menu-item "Negate top filter" ibuffer-negate-filter |
| 543 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers))) | |
| 540 (define-key-after map [menu-bar view filter decompose-filter] | 544 (define-key-after map [menu-bar view filter decompose-filter] |
| 541 '(menu-item "Decompose top filter" ibuffer-decompose-filter | 545 '(menu-item "Decompose top filter" ibuffer-decompose-filter |
| 546 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers) | |
| 542 :help "Break down a complex filter like OR or NOT")) | 547 :help "Break down a complex filter like OR or NOT")) |
| 543 (define-key-after map [menu-bar view filter exchange-filters] | 548 (define-key-after map [menu-bar view filter exchange-filters] |
| 544 '(menu-item "Swap top two filters" ibuffer-exchange-filters)) | 549 '(menu-item "Swap top two filters" ibuffer-exchange-filters |
| 550 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers))) | |
| 545 (define-key-after map [menu-bar view filter save-filters] | 551 (define-key-after map [menu-bar view filter save-filters] |
| 546 '(menu-item "Save current filters permanently..." ibuffer-save-filters | 552 '(menu-item "Save current filters permanently..." ibuffer-save-filters |
| 553 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers) | |
| 547 :help "Use a mnemnonic name to store current filter stack")) | 554 :help "Use a mnemnonic name to store current filter stack")) |
| 548 (define-key-after map [menu-bar view filter switch-to-saved-filters] | 555 (define-key-after map [menu-bar view filter switch-to-saved-filters] |
| 549 '(menu-item "Restore permanently saved filters..." ibuffer-switch-to-saved-filters | 556 '(menu-item "Restore permanently saved filters..." ibuffer-switch-to-saved-filters |
| 557 :enable (and (featurep 'ibuf-ext) ibuffer-saved-filters) | |
| 550 :help "Replace current filters with a saved stack")) | 558 :help "Replace current filters with a saved stack")) |
| 551 (define-key-after map [menu-bar view filter add-saved-filters] | 559 (define-key-after map [menu-bar view filter add-saved-filters] |
| 552 '(menu-item "Add to permanently saved filters..." ibuffer-add-saved-filters | 560 '(menu-item "Add to permanently saved filters..." ibuffer-add-saved-filters |
| 561 :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers) | |
| 553 :help "Include already saved stack with current filters")) | 562 :help "Include already saved stack with current filters")) |
| 554 (define-key-after map [menu-bar view filter delete-saved-filters] | 563 (define-key-after map [menu-bar view filter delete-saved-filters] |
| 555 '(menu-item "Delete permanently saved filters..." | 564 '(menu-item "Delete permanently saved filters..." |
| 556 ibuffer-delete-saved-filters)) | 565 ibuffer-delete-saved-filters |
| 566 :enable (and (featurep 'ibuf-ext) ibuffer-saved-filters))) | |
| 557 | 567 |
| 558 ;; Filter groups | 568 ;; Filter groups |
| 559 | 569 |
| 560 (define-key-after groups-map [filters-to-filter-group] | 570 (define-key-after groups-map [filters-to-filter-group] |
| 561 '(menu-item "Create filter group from current filters..." | 571 '(menu-item "Create filter group from current filters..." |
| 592 :help "\"Unmake\" a filter group" | 602 :help "\"Unmake\" a filter group" |
| 593 :enable (and (featurep 'ibuf-ext) ibuffer-filter-groups))) | 603 :enable (and (featurep 'ibuf-ext) ibuffer-filter-groups))) |
| 594 (define-key-after groups-map [save-filter-groups] | 604 (define-key-after groups-map [save-filter-groups] |
| 595 '(menu-item "Save current filter groups permanently..." | 605 '(menu-item "Save current filter groups permanently..." |
| 596 ibuffer-save-filter-groups | 606 ibuffer-save-filter-groups |
| 607 :enable (and (featurep 'ibuf-ext) ibuffer-filter-groups) | |
| 597 :help "Use a mnemnonic name to store current filter groups")) | 608 :help "Use a mnemnonic name to store current filter groups")) |
| 598 (define-key-after groups-map [switch-to-saved-filter-groups] | 609 (define-key-after groups-map [switch-to-saved-filter-groups] |
| 599 '(menu-item "Restore permanently saved filters..." | 610 '(menu-item "Restore permanently saved filters..." |
| 600 ibuffer-switch-to-saved-filter-groups | 611 ibuffer-switch-to-saved-filter-groups |
| 612 :enable (and (featurep 'ibuf-ext) ibuffer-saved-filter-groups) | |
| 601 :help "Replace current filters with a saved stack")) | 613 :help "Replace current filters with a saved stack")) |
| 602 (define-key-after groups-map [delete-saved-filter-groups] | 614 (define-key-after groups-map [delete-saved-filter-groups] |
| 603 '(menu-item "Delete permanently saved filter groups..." | 615 '(menu-item "Delete permanently saved filter groups..." |
| 604 ibuffer-delete-saved-filter-groups)) | 616 ibuffer-delete-saved-filter-groups |
| 617 :enable (and (featurep 'ibuf-ext) ibuffer-saved-filter-groups))) | |
| 605 (define-key-after groups-map [set-filter-groups-by-mode] | 618 (define-key-after groups-map [set-filter-groups-by-mode] |
| 606 '(menu-item "Set current filter groups to filter by mode" | 619 '(menu-item "Set current filter groups to filter by mode" |
| 607 ibuffer-set-filter-groups-by-mode)) | 620 ibuffer-set-filter-groups-by-mode)) |
| 608 | 621 |
| 609 (define-key-after map [menu-bar view filter-groups] | 622 (define-key-after map [menu-bar view filter-groups] |