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

[Miles Bader]

Index: emacs/lisp/ibuf-macs.el
diff -c emacs/lisp/ibuf-macs.el:1.14.4.1 emacs/lisp/ibuf-macs.el:1.14.4.2
*** emacs/lisp/ibuf-macs.el:1.14.4.1    Fri Apr 16 12:49:51 2004
--- emacs/lisp/ibuf-macs.el     Mon Jun 28 07:28:41 2004
***************
*** 93,99 ****
  ibuffer-make-column-NAME.  If INLINE is non-nil, then the form will be
  inlined into the compiled format versions.  This means that if you
  change its definition, you should explicitly call
! `ibuffer-recompile-formats'."
    (let* ((sym (intern (concat "ibuffer-make-column-"
                              (symbol-name symbol))))
         (bod-1 `(with-current-buffer buffer
--- 93,101 ----
  ibuffer-make-column-NAME.  If INLINE is non-nil, then the form will be
  inlined into the compiled format versions.  This means that if you
  change its definition, you should explicitly call
! `ibuffer-recompile-formats'.
! 
! \(fn SYMBOL (&key NAME INLINE PROPS SUMMARIZER) &rest BODY)"
    (let* ((sym (intern (concat "ibuffer-make-column-"
                              (symbol-name symbol))))
         (bod-1 `(with-current-buffer buffer
***************
*** 135,141 ****
  
  For sorting, the forms in BODY will be evaluated with `a' bound to one
  buffer object, and `b' bound to another.  BODY should return a non-nil
! value if and only if `a' is \"less than\" `b'."
    `(progn
       (defun ,(intern (concat "ibuffer-do-sort-by-" (symbol-name name))) ()
         ,(or documentation "No :documentation specified for this sorting 
method.")
--- 137,145 ----
  
  For sorting, the forms in BODY will be evaluated with `a' bound to one
  buffer object, and `b' bound to another.  BODY should return a non-nil
! value if and only if `a' is \"less than\" `b'.
! 
! \(fn NAME DOCUMENTATION (&key DESCRIPTION) &rest BODY)"
    `(progn
       (defun ,(intern (concat "ibuffer-do-sort-by-" (symbol-name name))) ()
         ,(or documentation "No :documentation specified for this sorting 
method.")
***************
*** 189,195 ****
  confirmation message, in the form:
   \"Really ACTIVE-OPSTRING x buffers?\"
  COMPLEX means this function is special; see the source code of this
! macro for exactly what it does."
    `(progn
      (defun ,(intern (concat (if (string-match "^ibuffer-do" (symbol-name op))
                                "" "ibuffer-do-") (symbol-name op)))
--- 193,201 ----
  confirmation message, in the form:
   \"Really ACTIVE-OPSTRING x buffers?\"
  COMPLEX means this function is special; see the source code of this
! macro for exactly what it does.
! 
! \(fn OP ARGS DOCUMENTATION (&key INTERACTIVE MARK MODIFIER-P DANGEROUS 
OPSTRING ACTIVE-OPSTRING COMPLEX) &rest BODY)"
    `(progn
      (defun ,(intern (concat (if (string-match "^ibuffer-do" (symbol-name op))
                                "" "ibuffer-do-") (symbol-name op)))
***************
*** 265,271 ****
  BODY should contain forms which will be evaluated to test whether or
  not a particular buffer should be displayed or not.  The forms in BODY
  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)
--- 271,279 ----
  BODY should contain forms which will be evaluated to test whether or
  not a particular buffer should be displayed or not.  The forms in BODY
  will be evaluated with BUF bound to the buffer object, and QUALIFIER
! bound to the current value of the filter.
! 
! \(fn NAME DOCUMENTATION (&key READER DESCRIPTION) &rest BODY)"
    (let ((fn-name (intern (concat "ibuffer-filter-by-" (symbol-name name)))))
      `(progn
         (defun ,fn-name (qualifier)