diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index cb235697ed0..3c59c92c042 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -4083,11 +4083,9 @@ that suppresses all warnings during execution of BODY." clauses nil)) ((cdr clauses) (byte-compile-form (car clause)) - ;; (message "out %s" donetag) (if (null (cdr clause)) ;; First clause is a singleton. (byte-compile-goto-if t byte-compile--for-effect donetag) - ;; (message "inside %s" donetag) (setq nexttag (byte-compile-make-tag)) (byte-compile-goto 'byte-goto-if-nil nexttag) (byte-compile-maybe-guarded (car clause) |