diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-10 13:06:14 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-10 13:06:14 +0200 |
commit | a6cbf14a178fe3630c4c122f5a38f7d1c4ed1d13 (patch) | |
tree | ce5699ff72b08b0541dfcc502540b8c5adfc19f3 | |
parent | 187e8501d61703b64db073ce9287f4f96493d30c (diff) | |
download | emacs-a6cbf14a178fe3630c4c122f5a38f7d1c4ed1d13.tar.gz |
Avoid adding a second progn layer if there's already a progn there
-rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index b00963c5c13..9697d0d9cde 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -4797,7 +4797,7 @@ binding slots have been popped." (defun byte-compile-suppressed-warnings (form) (let ((byte-compile--suppressed-warnings (append (cadadr form) byte-compile--suppressed-warnings))) - (byte-compile-form (cons 'progn (cddr form))))) + (byte-compile-form (macroexp-progn (cddr form))))) ;; Warn about misuses of make-variable-buffer-local. (byte-defop-compiler-1 make-variable-buffer-local |