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

[Juanma Barranquero]

Index: emacs/lisp/ibuf-ext.el
diff -c emacs/lisp/ibuf-ext.el:1.30 emacs/lisp/ibuf-ext.el:1.31
*** emacs/lisp/ibuf-ext.el:1.30 Tue Jan 28 03:43:41 2003
--- emacs/lisp/ibuf-ext.el      Tue Feb  4 06:25:15 2003
***************
*** 88,94 ****
  
  (defvar ibuffer-tmp-hide-regexps nil
    "A list of regexps which should match buffer names to not show.")
!   
  (defvar ibuffer-tmp-show-regexps nil
    "A list of regexps which should match buffer names to always show.")
  
--- 88,94 ----
  
  (defvar ibuffer-tmp-hide-regexps nil
    "A list of regexps which should match buffer names to not show.")
! 
  (defvar ibuffer-tmp-show-regexps nil
    "A list of regexps which should match buffer names to always show.")
  
***************
*** 112,118 ****
                                         (mode . java-mode)
                                         (mode . idl-mode)
                                         (mode . lisp-mode)))))
!                                 
    "An alist of filter qualifiers to switch between.
  
  This variable should look like ((\"STRING\" QUALIFIERS)
--- 112,118 ----
                                         (mode . java-mode)
                                         (mode . idl-mode)
                                         (mode . lisp-mode)))))
! 
    "An alist of filter qualifiers to switch between.
  
  This variable should look like ((\"STRING\" QUALIFIERS)
***************
*** 170,176 ****
    :group 'ibuffer)
  
  (defcustom ibuffer-saved-filter-groups nil
!                                 
    "An alist of filtering groups to switch between.
  
  This variable should look like ((\"STRING\" QUALIFIERS)
--- 170,176 ----
    :group 'ibuffer)
  
  (defcustom ibuffer-saved-filter-groups nil
! 
    "An alist of filtering groups to switch between.
  
  This variable should look like ((\"STRING\" QUALIFIERS)
***************
*** 921,927 ****
      (concat "Filter: " (mapconcat #'ibuffer-format-qualifier
                                  (cdr (assq filter ibuffer-filter-groups))
                                  " ") "\n")))
!   
  (defun ibuffer-format-qualifier (qualifier)
    (if (eq (car-safe qualifier) 'not)
        (concat " [NOT" (ibuffer-format-qualifier-1 (cdr qualifier)) "]")
--- 921,927 ----
      (concat "Filter: " (mapconcat #'ibuffer-format-qualifier
                                  (cdr (assq filter ibuffer-filter-groups))
                                  " ") "\n")))
! 
  (defun ibuffer-format-qualifier (qualifier)
    (if (eq (car-safe qualifier) 'not)
        (concat " [NOT" (ibuffer-format-qualifier-1 (cdr qualifier)) "]")
***************
*** 939,945 ****
         (unless qualifier
         (error "Ibuffer: bad qualifier %s" qualifier))
         (concat " [" (cadr type) ": " (format "%s]" (cdr qualifier)))))))
!   
  
  (defun ibuffer-list-buffer-modes ()
    "Create an alist of buffer modes currently in use.
--- 939,945 ----
         (unless qualifier
         (error "Ibuffer: bad qualifier %s" qualifier))
         (concat " [" (cadr type) ": " (format "%s]" (cdr qualifier)))))))
! 
  
  (defun ibuffer-list-buffer-modes ()
    "Create an alist of buffer modes currently in use.