From 285286045fedc427d537a1dae9823d27ba3a3823 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Mon, 3 Mar 2003 15:13:01 +0000 Subject: [PATCH] (ibuffer-aif): Use `make-symbol' instead of `gensym' in case user calls macro at runtime. (ibuffer-save-marks): Likewise. --- lisp/ChangeLog | 10 ++++++++-- lisp/ibuf-macs.el | 4 ++-- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5b403d15619..ee6dbea4f81 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2003-03-03 John Paul Wallington + + * 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 * 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,Ad(Brv * 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,A_(Bjohann * net/tramp.el: Version 2.0.30 released. diff --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el index e12a1199939..7817f978930 100644 --- 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 -- 2.11.4.GIT