diff options
| author | Colin Walters <walters@gnu.org> | 2002-04-26 03:59:35 +0000 |
|---|---|---|
| committer | Colin Walters <walters@gnu.org> | 2002-04-26 03:59:35 +0000 |
| commit | 6723ec89a45764668ffc725dcc189469a6814878 (patch) | |
| tree | 923b9f5b975619558d390dbf088b7bf5865b6671 /lisp/ibuf-ext.el | |
| parent | 4f2b51dab041666021eb6788d0a40b5760d2d348 (diff) | |
| download | emacs-6723ec89a45764668ffc725dcc189469a6814878.tar.gz | |
(ibuffer-saved-filter-groups): Don't include broken defaults.
(ibuffer-yank): Be sure to `setq' after we use `nconc'.
(ibuffer-save-filter-groups): Correctly structure filter groups.
(ibuffer-switch-to-saved-filter-groups): Correctly extract filter
groups.
Diffstat (limited to 'lisp/ibuf-ext.el')
| -rw-r--r-- | lisp/ibuf-ext.el | 22 |
1 files changed, 5 insertions, 17 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index baef4d0b201..df18a7d4a55 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -157,20 +157,7 @@ The QUALIFIER should be the same as QUALIFIER in :type 'boolean :group 'ibuffer) -(defcustom ibuffer-saved-filter-groups - '(("gnus" - ((or (mode . message-mode) - (mode . mail-mode) - (mode . gnus-group-mode) - (mode . gnus-summary-mode) - (mode . gnus-article-mode)))) - ("programming" - ((or (mode . emacs-lisp-mode) - (mode . cperl-mode) - (mode . c-mode) - (mode . java-mode) - (mode . idl-mode) - (mode . lisp-mode))))) +(defcustom ibuffer-saved-filter-groups nil "An alist of filtering groups to switch between. @@ -648,7 +635,8 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'." (cond ((= pos 0) (push last-killed ibuffer-filter-groups)) ((= pos (1- (length all-groups))) - (nconc ibuffer-filter-groups (list last-killed))) + (setq ibuffer-filter-groups + (nconc ibuffer-filter-groups (list last-killed)))) (t (let ((cell (nthcdr pos ibuffer-filter-groups))) (setf (cdr cell) (cons (car cell) (cdr cell))) @@ -668,7 +656,7 @@ prompt for NAME, and use the current filters." ibuffer-filter-groups))) (ibuffer-aif (assoc name ibuffer-saved-filter-groups) (setcdr it groups) - (push (list name groups) ibuffer-saved-filter-groups)) + (push (cons name groups) ibuffer-saved-filter-groups)) (ibuffer-maybe-save-stuff) (ibuffer-update-mode-name)) @@ -699,7 +687,7 @@ 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 (assoc name ibuffer-saved-filter-groups)) + (setq ibuffer-filter-groups (cdr (assoc name ibuffer-saved-filter-groups))) (ibuffer-update nil t)) ;;;###autoload |