aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ibuf-ext.el16
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.
756The value from `ibuffer-saved-filters' is used. 756The value from `ibuffer-saved-filter-groups' is used."
757If prefix argument ADD is non-nil, then add the saved filters instead
758of 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'."
935If prefix argument ADD is non-nil, then add the saved filters instead
936of replacing the current filters."
937 (interactive 933 (interactive
938 (list 934 (list
939 (if (null ibuffer-saved-filters) 935 (if (null ibuffer-saved-filters)