Mercurial > emacs

changeset 50010:d19b54decc23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ibuffer-aif): Use `make-symbol' instead of `gensym' in case user calls macro at runtime. (ibuffer-save-marks): Likewise.
author John Paul Wallington <jpw@pobox.com>
date Mon, 03 Mar 2003 15:11:05 +0000
parents 173ef569a9e0
children e6b3933a36f6
files lisp/ibuf-macs.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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