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

`gensym' in case user calls macro at runtime.
(ibuffer-save-marks): Likewise.
This commit is contained in:
John Paul Wallington 2003-03-03 15:13:01 +00:00
parent 9a6155bb67
commit 285286045f
2 changed files with 10 additions and 4 deletions

View file

@ -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,Ad(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,A_(Bjohann <kai.grossjohann@uni-duisburg.de>
* net/tramp.el: Version 2.0.30 released.

View file

@ -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