;;; ibuf-macs.el --- macros for ibuffer
-;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
;; Author: Colin Walters <walters@verbum.org>
+;; Maintainer: John Paul Wallington <jpw@gnu.org>
;; Created: 6 Dec 2001
;; Keywords: buffer, convenience
If TEST returns non-nil, bind `it' to the value, and evaluate
TRUE-BODY. Otherwise, evaluate forms in FALSE-BODY as if in `progn'.
Compare with `if'."
- (let ((sym (gensym "--ibuffer-aif-")))
+ (let ((sym (make-symbol "ibuffer-aif-sym")))
`(let ((,sym ,test))
(if ,sym
(let ((it ,sym))
(defmacro ibuffer-save-marks (&rest body)
"Save the marked status of the buffers and execute BODY; restore marks."
- (let ((bufsym (gensym)))
+ (let ((bufsym (make-symbol "bufsym")))
`(let ((,bufsym (current-buffer))
(ibuffer-save-marks-tmp-mark-list (ibuffer-current-state-list)))
(unwind-protect
;;;###autoload
(defmacro* define-ibuffer-sorter (name documentation
- (&key
+ (&key
description)
&rest body)
"Define a method of sorting named NAME.
;;;###autoload
(defmacro* define-ibuffer-op (op args
documentation
- (&key
+ (&key
interactive
mark
modifier-p
;;;###autoload
(defmacro* define-ibuffer-filter (name documentation
- (&key
+ (&key
reader
description)
&rest 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
+ `(progn
(defun ,fn-name (qualifier)
,(concat (or documentation "This filter is not documented."))
(interactive (list ,reader))
(provide 'ibuf-macs)
+;;; arch-tag: 2748edce-82c9-4cd9-9d9d-bd73e43c20c5
;;; ibuf-macs.el ends here