mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Avoid deleting ibuffer named filters by default.

Browse Source 
* lisp/ibuf-ext.el (ibuffer-filter-disable): New arg for deleting
filter groups.
(ibuffer-included-in-filter-p-1): Use it.  Suggested by Noam
Postavsky.

Fixes: debbugs:8804
This commit is contained in:
Chong Yidong 2011-08-14 14:08:20 -04:00
parent 5cf2b69bdb
commit d024fb4ec9
2 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2011-08-14 Chong Yidong <cyd@stupidchicken.com>
* ibuf-ext.el (ibuffer-filter-disable): New arg for deleting
filter groups.
(ibuffer-included-in-filter-p-1): Use it. Suggested by Noam
Postavsky (Bug#8804).
2011-08-12 Juanma Barranquero <lekktu@gmail.com>
* startup.el (argi): Declare as global variable (bug#9275).

15
lisp/ibuf-ext.el
View File

@ -505,7 +505,7 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
(assoc (cdr filter)
ibuffer-saved-filters)))
(unless data
(ibuffer-filter-disable)
(ibuffer-filter-disable t)
(error "Unknown saved filter %s" (cdr filter)))
(ibuffer-included-in-filters-p buf (cadr data))))
(t
@ -514,7 +514,7 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
;; filterdat should be like (TYPE DESCRIPTION FUNC)
;; just a sanity check
(unless filterdat
(ibuffer-filter-disable)
(ibuffer-filter-disable t)
(error "Undefined filter %s" (car filter)))
(not
(not
@ -768,11 +768,14 @@ The value from `ibuffer-saved-filter-groups' is used."
(ibuffer-update nil t))
;;;###autoload
(defun ibuffer-filter-disable ()
"Disable all filters currently in effect in this buffer."
(defun ibuffer-filter-disable (&optional delete-filter-groups)
"Disable all filters currently in effect in this buffer.
With optional arg DELETE-FILTER-GROUPS non-nil, delete all filter
group definitions by setting `ibuffer-filter-groups' to nil."
(interactive)
(setq ibuffer-filtering-qualifiers nil
ibuffer-filter-groups nil)
(setq ibuffer-filtering-qualifiers nil)
(if delete-filter-groups
(setq ibuffer-filter-groups nil))
(let ((buf (ibuffer-current-buffer)))
(ibuffer-update nil t)
(when buf