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] |