diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-05-25 09:39:35 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-05-25 09:39:35 -0400 |
| commit | b15c63952f161dadd24fe96ae58ef22124fac6eb (patch) | |
| tree | 9baaafbb54e21475d419e62f324702967c47310d /lisp/emacs-lisp/cl-macs.el | |
| parent | 6b442df48cbcf0acc99a491b5949c8d6c5748e11 (diff) | |
| download | emacs-b15c63952f161dadd24fe96ae58ef22124fac6eb.tar.gz | |
* lisp/emacs-lisp/cl-macs.el (cl-tagbody): Scope cl--tagbody-alist
Fixes: debbugs:20639
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 27d3da3dca4..636c5433a97 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -1786,7 +1786,8 @@ Labels have lexical scope and dynamic extent." (unless (eq 'go (car-safe (car-safe block))) (push `(go cl--exit) block)) (push (nreverse block) blocks)) - (let ((catch-tag (make-symbol "cl--tagbody-tag"))) + (let ((catch-tag (make-symbol "cl--tagbody-tag")) + (cl--tagbody-alist cl--tagbody-alist)) (push (cons 'cl--exit catch-tag) cl--tagbody-alist) (dolist (block blocks) (push (cons (car block) catch-tag) cl--tagbody-alist)) |