diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-09 23:55:09 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-09 23:55:09 +0200 |
commit | 19d6e0f1a5ca948b4a93af6b7a91c2e6229f2a5e (patch) | |
tree | e0b49816a229cadc8c683735717bad90758a0770 | |
parent | a9c3082d91bf405a47f552b15e17c70b6e66d36a (diff) | |
download | emacs-19d6e0f1a5ca948b4a93af6b7a91c2e6229f2a5e.tar.gz |
Fix up the non-toplevel form to mimick no-warnings syntactically
-rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index a88d157930a..9d04c9ef0e0 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 |