Commit 19d6e0f1 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Fix up the non-toplevel form to mimick no-warnings syntactically

parent a9c3082d
Pipeline #1965 failed with stage
in 17 seconds
...@@ -4805,8 +4805,7 @@ binding slots have been popped." ...@@ -4805,8 +4805,7 @@ binding slots have been popped."
(defun byte-compile-suppressed-warnings (form) (defun byte-compile-suppressed-warnings (form)
(let ((byte-compile--suppressed-warnings (let ((byte-compile--suppressed-warnings
(append (cadadr form) byte-compile--suppressed-warnings))) (append (cadadr form) byte-compile--suppressed-warnings)))
(byte-compile-progn (cons 'progn (cddr form))) (byte-compile-form (cons 'progn (cddr form)))))
nil))
;; Warn about misuses of make-variable-buffer-local. ;; Warn about misuses of make-variable-buffer-local.
(byte-defop-compiler-1 make-variable-buffer-local (byte-defop-compiler-1 make-variable-buffer-local
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment