[Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el

[Colin Walters]

Index: emacs/lisp/ibuf-ext.el
diff -c emacs/lisp/ibuf-ext.el:1.16 emacs/lisp/ibuf-ext.el:1.17
*** emacs/lisp/ibuf-ext.el:1.16 Thu Apr 25 15:03:55 2002
--- emacs/lisp/ibuf-ext.el      Thu Apr 25 23:59:35 2002
***************
*** 157,176 ****
    :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)))))
                                  
    "An alist of filtering groups to switch between.
  
--- 157,163 ----
    :type 'boolean
    :group 'ibuffer)
  
! (defcustom ibuffer-saved-filter-groups nil
                                  
    "An alist of filtering groups to switch between.
  
***************
*** 648,654 ****
        (cond ((= pos 0)
             (push last-killed ibuffer-filter-groups))
            ((= pos (1- (length all-groups)))
!            (nconc ibuffer-filter-groups (list last-killed)))
            (t
             (let ((cell (nthcdr pos ibuffer-filter-groups)))
               (setf (cdr cell) (cons (car cell) (cdr cell)))
--- 635,642 ----
        (cond ((= pos 0)
             (push last-killed ibuffer-filter-groups))
            ((= pos (1- (length all-groups)))
!            (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,674 ****
        ibuffer-filter-groups)))
    (ibuffer-aif (assoc name ibuffer-saved-filter-groups)
        (setcdr it groups)
!     (push (list name groups) ibuffer-saved-filter-groups))
    (ibuffer-maybe-save-stuff)
    (ibuffer-update-mode-name))
  
--- 656,662 ----
        ibuffer-filter-groups)))
    (ibuffer-aif (assoc name ibuffer-saved-filter-groups)
        (setcdr it groups)
!     (push (cons name groups) ibuffer-saved-filter-groups))
    (ibuffer-maybe-save-stuff)
    (ibuffer-update-mode-name))
  
***************
*** 699,705 ****
        (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))
    (ibuffer-update nil t))
  
  ;;;###autoload
--- 687,693 ----
        (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)))
    (ibuffer-update nil t))
  
  ;;;###autoload