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

[Juanma Barranquero]

Index: emacs/lisp/ibuf-macs.el
diff -c emacs/lisp/ibuf-macs.el:1.11 emacs/lisp/ibuf-macs.el:1.12
*** emacs/lisp/ibuf-macs.el:1.11        Thu Jan 23 23:53:31 2003
--- emacs/lisp/ibuf-macs.el     Tue Feb  4 06:25:31 2003
***************
*** 125,131 ****
  
  ;;;###autoload
  (defmacro* define-ibuffer-sorter (name documentation
!                                      (&key 
                                        description)
                                       &rest body)
    "Define a method of sorting named NAME.
--- 125,131 ----
  
  ;;;###autoload
  (defmacro* define-ibuffer-sorter (name documentation
!                                      (&key
                                        description)
                                       &rest body)
    "Define a method of sorting named NAME.
***************
*** 152,158 ****
  ;;;###autoload
  (defmacro* define-ibuffer-op (op args
                                 documentation
!                                (&key 
                                  interactive
                                  mark
                                  modifier-p
--- 152,158 ----
  ;;;###autoload
  (defmacro* define-ibuffer-op (op args
                                 documentation
!                                (&key
                                  interactive
                                  mark
                                  modifier-p
***************
*** 253,259 ****
  
  ;;;###autoload
  (defmacro* define-ibuffer-filter (name documentation
!                                      (&key 
                                        reader
                                        description)
                                       &rest body)
--- 253,259 ----
  
  ;;;###autoload
  (defmacro* define-ibuffer-filter (name documentation
!                                      (&key
                                        reader
                                        description)
                                       &rest body)
***************
*** 267,273 ****
  will be evaluated with BUF bound to the buffer object, and QUALIFIER
  bound to the current value of the filter."
    (let ((fn-name (intern (concat "ibuffer-filter-by-" (symbol-name name)))))
!     `(progn 
         (defun ,fn-name (qualifier)
         ,(concat (or documentation "This filter is not documented."))
         (interactive (list ,reader))
--- 267,273 ----
  will be evaluated with BUF bound to the buffer object, and QUALIFIER
  bound to the current value of the filter."
    (let ((fn-name (intern (concat "ibuffer-filter-by-" (symbol-name name)))))
!     `(progn
         (defun ,fn-name (qualifier)
         ,(concat (or documentation "This filter is not documented."))
         (interactive (list ,reader))