(ibuffer-aif): Use `make-symbol' instead of

`gensym' in case user calls macro at runtime.
(ibuffer-save-marks): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5b403d15619750b01977a359aa4a16e0c957c832..ee6dbea4f81c673c4aee3c3a6c4ee24b13524ed8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-03-03  John Paul Wallington  <jpw@gnu.org>
+
+       * ibuf-macs.el (ibuffer-aif): Use `make-symbol' instead of
+       `gensym' in case user calls macro at runtime.
+       (ibuffer-save-marks): Likewise.
+
 2003-03-03  Kenichi Handa  <handa@m17n.org>
 
        * language/japan-util.el (japanese-symbol-table): Add two entries
@@ -18,14 +24,14 @@
        that first docstring lines ending with a comma are respected.  Add
        "`(" to same so that function and macro bodies beginning with a
        backquote do not get disturbed.  Revise the comments.
-       
+
 2003-03-01  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
        
        * startup.el (command-line): Call menu-bar-mode with 1 instead of t.
 
        * menu-bar.el (menu-bar-mode): Change to define-minor-mode
        and initialize as for tool-bar-mode.
-       
+
 2003-02-28  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
 
        * net/tramp.el: Version 2.0.30 released.

diff --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el
index e12a119993972396a71d71851e92a2911f152978..7817f9789306c5af7287e9b540d74155a412bbae 100644 (file)
--- a/lisp/ibuf-macs.el
+++ b/lisp/ibuf-macs.el
@@ -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 @@ During evaluation of body, bind `it' to the value returned by TEST."
 
 (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