Commit a3f4c42d authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

We need byte-compile-progn in the non-toplevel case apparently

parent c1980ab2
Pipeline #1957 failed with stage
in 3 seconds
...@@ -512,10 +512,11 @@ Return the compile-time value of FORM." ...@@ -512,10 +512,11 @@ Return the compile-time value of FORM."
(eval expanded lexical-binding) (eval expanded lexical-binding)
expanded))))) expanded)))))
(with-suppressed-warnings (with-suppressed-warnings
. (lambda (warnings &rest body) . ,(lambda (warnings &rest body)
`(internal--with-suppressed-warnings (list #'internal--with-suppressed-warnings
',warnings ,(macroexpand-all `(progn ,@body) (list 'quote warnings)
macroexpand-all-environment))))) (macroexpand-all (cons 'progn body)
macroexpand-all-environment)))))
"The default macro-environment passed to macroexpand by the compiler. "The default macro-environment passed to macroexpand by the compiler.
Placing a macro here will cause a macro to have different semantics when Placing a macro here will cause a macro to have different semantics when
expanded by the compiler as when expanded by the interpreter.") expanded by the compiler as when expanded by the interpreter.")
...@@ -4803,7 +4804,7 @@ binding slots have been popped." ...@@ -4803,7 +4804,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)))
(mapc 'byte-compile-file-form (cddr form)) (byte-compile-progn (cons 'progn (cddr form)))
nil)) nil))
;; Warn about misuses of make-variable-buffer-local. ;; Warn about misuses of 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