[Emacs-diffs] scratch/with-suppressed-warnings 19d6e0f: Fix up the non-toplevel form to mimick no-warnings syntactically

[Lars Ingebrigtsen]

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

    Fix up the non-toplevel form to mimick no-warnings syntactically
---
 lisp/emacs-lisp/bytecomp.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index a88d157..9d04c9e 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -4805,8 +4805,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-progn (cons 'progn (cddr form)))
-    nil))
+    (byte-compile-form (cons 'progn (cddr form)))))
 
 ;; Warn about misuses of make-variable-buffer-local.
 (byte-defop-compiler-1 make-variable-buffer-local