[Emacs-diffs] scratch/with-suppressed-warnings a6cbf14: Avoid adding a second progn layer if there's already a progn there

[Lars Ingebrigtsen]

branch: scratch/with-suppressed-warnings
commit a6cbf14a178fe3630c4c122f5a38f7d1c4ed1d13
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Avoid adding a second progn layer if there's already a progn there
---
 lisp/emacs-lisp/bytecomp.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index b00963c..9697d0d 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