diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2017-09-12 11:00:58 -0400 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2017-09-12 11:00:58 -0400 |
| commit | 2ae46b4c0dabfea80883a294dff16e0eb7182d30 (patch) | |
| tree | 39fb845ce6748f449a6ded767538d69dc252a165 /lisp/emacs-lisp | |
| parent | fcf5d894c061fe7ea557aafd249f9cd0f69dfb28 (diff) | |
| download | emacs-2ae46b4c0dabfea80883a294dff16e0eb7182d30.tar.gz emacs-2ae46b4c0dabfea80883a294dff16e0eb7182d30.tar.bz2 emacs-2ae46b4c0dabfea80883a294dff16e0eb7182d30.zip | |
Fix cl-gentemp
* lisp/emacs-lisp/cl-macs.el (cl--gentemp-counter): New variable.
(cl-gentemp): Use it. Change prefix to "T".
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 20a956b474a..3405c92e8d4 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -172,14 +172,15 @@ The name is made by appending a number to PREFIX, default \"G\"." (setq cl--gensym-counter (1+ cl--gensym-counter)))))) (make-symbol (format "%s%d" pfix num)))) +(defvar cl--gentemp-counter 0) ;;;###autoload (defun cl-gentemp (&optional prefix) "Generate a new interned symbol with a unique name. -The name is made by appending a number to PREFIX, default \"G\"." - (let ((pfix (if (stringp prefix) prefix "G")) +The name is made by appending a number to PREFIX, default \"T\"." + (let ((pfix (if (stringp prefix) prefix "T")) name) - (while (intern-soft (setq name (format "%s%d" pfix cl--gensym-counter))) - (setq cl--gensym-counter (1+ cl--gensym-counter))) + (while (intern-soft (setq name (format "%s%d" pfix cl--gentemp-counter))) + (setq cl--gentemp-counter (1+ cl--gentemp-counter))) (intern name))) |