# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1046704265 0
# Node ID d19b54decc239c5d50c3e12c9e152bac9d74a5cc
# Parent  173ef569a9e0a46367d42b55e5d8402f052ac37d
(ibuffer-aif): Use `make-symbol' instead of
`gensym' in case user calls macro at runtime.
(ibuffer-save-marks): Likewise.

diff -r 173ef569a9e0 -r d19b54decc23 lisp/ibuf-macs.el
--- a/lisp/ibuf-macs.el	Mon Mar 03 10:41:49 2003 +0000
+++ b/lisp/ibuf-macs.el	Mon Mar 03 15:11:05 2003 +0000
@@ -37,7 +37,7 @@
 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))
@@ -56,7 +56,7 @@
 
 (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