diff options
| -rw-r--r-- | lisp/ibuf-ext.el | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 2c39b736097..feebab40b43 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el | |||
| @@ -565,7 +565,7 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'." | |||
| 565 | (cons (format "%s" mode) `((mode . ,mode)))) | 565 | (cons (format "%s" mode) `((mode . ,mode)))) |
| 566 | (let ((modes | 566 | (let ((modes |
| 567 | (ibuffer-remove-duplicates | 567 | (ibuffer-remove-duplicates |
| 568 | (mapcar (lambda (buf) | 568 | (mapcar (lambda (buf) |
| 569 | (with-current-buffer buf major-mode)) | 569 | (with-current-buffer buf major-mode)) |
| 570 | (buffer-list))))) | 570 | (buffer-list))))) |
| 571 | (if ibuffer-view-ibuffer | 571 | (if ibuffer-view-ibuffer |
| @@ -604,7 +604,7 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'." | |||
| 604 | ;;;###autoload | 604 | ;;;###autoload |
| 605 | (defun ibuffer-decompose-filter-group (group) | 605 | (defun ibuffer-decompose-filter-group (group) |
| 606 | "Decompose the filter group GROUP into active filters." | 606 | "Decompose the filter group GROUP into active filters." |
| 607 | (interactive | 607 | (interactive |
| 608 | (list (ibuffer-read-filter-group-name "Decompose filter group: " t))) | 608 | (list (ibuffer-read-filter-group-name "Decompose filter group: " t))) |
| 609 | (let ((data (cdr (assoc group ibuffer-filter-groups)))) | 609 | (let ((data (cdr (assoc group ibuffer-filter-groups)))) |
| 610 | (setq ibuffer-filter-groups (ibuffer-delete-alist | 610 | (setq ibuffer-filter-groups (ibuffer-delete-alist |
| @@ -639,7 +639,7 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'." | |||
| 639 | ;;;###autoload | 639 | ;;;###autoload |
| 640 | (defun ibuffer-jump-to-filter-group (name) | 640 | (defun ibuffer-jump-to-filter-group (name) |
| 641 | "Move point to the filter group whose name is NAME." | 641 | "Move point to the filter group whose name is NAME." |
| 642 | (interactive | 642 | (interactive |
| 643 | (list (ibuffer-read-filter-group-name "Jump to filter group: "))) | 643 | (list (ibuffer-read-filter-group-name "Jump to filter group: "))) |
| 644 | (ibuffer-aif (assoc name (ibuffer-current-filter-groups-with-position)) | 644 | (ibuffer-aif (assoc name (ibuffer-current-filter-groups-with-position)) |
| 645 | (goto-char (cdr it)) | 645 | (goto-char (cdr it)) |
| @@ -753,9 +753,7 @@ They are removed from `ibuffer-saved-filter-groups'." | |||
| 753 | ;;;###autoload | 753 | ;;;###autoload |
| 754 | (defun ibuffer-switch-to-saved-filter-groups (name) | 754 | (defun ibuffer-switch-to-saved-filter-groups (name) |
| 755 | "Set this buffer's filter groups to saved version with NAME. | 755 | "Set this buffer's filter groups to saved version with NAME. |
| 756 | The value from `ibuffer-saved-filters' is used. | 756 | The value from `ibuffer-saved-filter-groups' is used." |
| 757 | If prefix argument ADD is non-nil, then add the saved filters instead | ||
| 758 | of replacing the current filters." | ||
| 759 | (interactive | 757 | (interactive |
| 760 | (list | 758 | (list |
| 761 | (if (null ibuffer-saved-filter-groups) | 759 | (if (null ibuffer-saved-filter-groups) |
| @@ -863,7 +861,7 @@ filter into parts." | |||
| 863 | (not (eq 'or (caar ibuffer-filtering-qualifiers)))) | 861 | (not (eq 'or (caar ibuffer-filtering-qualifiers)))) |
| 864 | (error "Top filter is not an OR")) | 862 | (error "Top filter is not an OR")) |
| 865 | (let ((lim (pop ibuffer-filtering-qualifiers))) | 863 | (let ((lim (pop ibuffer-filtering-qualifiers))) |
| 866 | (setq ibuffer-filtering-qualifiers | 864 | (setq ibuffer-filtering-qualifiers |
| 867 | (nconc (cdr lim) ibuffer-filtering-qualifiers)))) | 865 | (nconc (cdr lim) ibuffer-filtering-qualifiers)))) |
| 868 | (when (< (length ibuffer-filtering-qualifiers) 2) | 866 | (when (< (length ibuffer-filtering-qualifiers) 2) |
| 869 | (error "Need two filters to OR")) | 867 | (error "Need two filters to OR")) |
| @@ -931,9 +929,7 @@ Interactively, prompt for NAME, and use the current filters." | |||
| 931 | 929 | ||
| 932 | ;;;###autoload | 930 | ;;;###autoload |
| 933 | (defun ibuffer-switch-to-saved-filters (name) | 931 | (defun ibuffer-switch-to-saved-filters (name) |
| 934 | "Set this buffer's filters to filters with NAME from `ibuffer-saved-filters'. | 932 | "Set this buffer's filters to filters with NAME from `ibuffer-saved-filters'." |
| 935 | If prefix argument ADD is non-nil, then add the saved filters instead | ||
| 936 | of replacing the current filters." | ||
| 937 | (interactive | 933 | (interactive |
| 938 | (list | 934 | (list |
| 939 | (if (null ibuffer-saved-filters) | 935 | (if (null ibuffer-saved-filters) |