procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix cl-gentemp

Browse source 
* lisp/emacs-lisp/cl-macs.el (cl--gentemp-counter): New variable.
(cl-gentemp): Use it.  Change prefix to "T".
This commit is contained in:
Mark Oteiza 2017-09-12 11:00:58 -04:00
parent fcf5d894c0
commit 2ae46b4c0d
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/cl-macs.el
View file

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