mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(ibuffer-set-filter-groups-by-mode): Don't make an ibuffer-mode filter

Browse source 
group if `ibuffer-view-ibuffer' is nil.
This commit is contained in:
Colin Walters 2002-04-28 21:40:57 +00:00
parent c0e48b0bb8
commit b7f6c47665
1 changed files with 21 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lisp/ibuf-ext.el
View file

@ -541,11 +541,15 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
"Set the current filter groups to filter by mode."
(interactive)
(setq ibuffer-filter-groups
(mapcar (lambda (mode)
(cons (format "%s" mode) `((mode . ,mode))))
(delete-duplicates
(mapcar (lambda (buf) (with-current-buffer buf major-mode))
(buffer-list)))))
(mapcar (lambda (mode)
(cons (format "%s" mode) `((mode . ,mode))))
(let ((modes
(delete-duplicates
(mapcar (lambda (buf) (with-current-buffer buf major-mode))
(buffer-list)))))
(if ibuffer-view-ibuffer
modes
(delq 'ibuffer-mode modes)))))
(ibuffer-update nil t))
;;;###autoload
@ -554,14 +558,17 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
(interactive)
(when (null ibuffer-filter-groups)
(error "No filtering groups active"))
(pop ibuffer-filter-groups)
(setq ibuffer-hidden-filter-groups
(delete (pop ibuffer-filter-groups)
ibuffer-hidden-filter-groups))
(ibuffer-update nil t))
;;;###autoload
(defun ibuffer-clear-filter-groups ()
"Remove all filtering groups."
(interactive)
(setq ibuffer-filter-groups nil)
(setq ibuffer-filter-groups nil
ibuffer-hidden-filter-groups nil)
(ibuffer-update nil t))
(defun ibuffer-current-filter-groups-with-position ()
@ -599,8 +606,11 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
(setq name (completing-read "Kill filter group: "
ibuffer-filter-groups nil t)))
(ibuffer-aif (assoc name ibuffer-filter-groups)
(setq ibuffer-filter-groups (ibuffer-delete-alist
name ibuffer-filter-groups))
(progn
(setq ibuffer-filter-groups (ibuffer-delete-alist
name ibuffer-filter-groups))
(setq ibuffer-hidden-filter-groups
delete name ibuffer-hidden-filter-groups))
(error "No filter group with name \"%s\"" name))
(ibuffer-update nil t))
@ -687,7 +697,8 @@ of replacing the current filters."
(error "No saved filters")
(completing-read "Switch to saved filter group: "
ibuffer-saved-filter-groups nil t))))
(setq ibuffer-filter-groups (cdr (assoc name ibuffer-saved-filter-groups)))
(setq ibuffer-filter-groups (cdr (assoc name ibuffer-saved-filter-groups))
ibuffer-hidden-filter-groups nil)
(ibuffer-update nil t))
;;;###autoload