diff options
| author | John Paul Wallington <jpw@pobox.com> | 2003-03-03 15:13:01 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2003-03-03 15:13:01 +0000 |
| commit | 285286045fedc427d537a1dae9823d27ba3a3823 (patch) | |
| tree | ac7e7bb69daacff4770ef715123a7dda468260af /lisp/ibuf-macs.el | |
| parent | 9a6155bb67ead0dea7de7adf39221890d4c8d978 (diff) | |
| download | emacs-285286045fedc427d537a1dae9823d27ba3a3823.tar.gz | |
(ibuffer-aif): Use `make-symbol' instead of
`gensym' in case user calls macro at runtime.
(ibuffer-save-marks): Likewise.
Diffstat (limited to 'lisp/ibuf-macs.el')
| -rw-r--r-- | lisp/ibuf-macs.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |