[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/with-suppressed-warnings a3f4c42: We need byte-com
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] scratch/with-suppressed-warnings a3f4c42: We need byte-compile-progn in the non-toplevel case apparently |
Date: |
Sun, 9 Jun 2019 14:17:27 -0400 (EDT) |
branch: scratch/with-suppressed-warnings
commit a3f4c42db8236dfa56bd5a362bd58cd2e7c891be
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
We need byte-compile-progn in the non-toplevel case apparently
---
lisp/emacs-lisp/bytecomp.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index fa2cd1a..7e54671 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -512,10 +512,11 @@ Return the compile-time value of FORM."
(eval expanded lexical-binding)
expanded)))))
(with-suppressed-warnings
- . (lambda (warnings &rest body)
- `(internal--with-suppressed-warnings
- ',warnings ,(macroexpand-all `(progn ,@body)
- macroexpand-all-environment)))))
+ . ,(lambda (warnings &rest body)
+ (list #'internal--with-suppressed-warnings
+ (list 'quote warnings)
+ (macroexpand-all (cons 'progn body)
+ macroexpand-all-environment)))))
"The default macro-environment passed to macroexpand by the compiler.
Placing a macro here will cause a macro to have different semantics when
expanded by the compiler as when expanded by the interpreter.")
@@ -4803,7 +4804,7 @@ binding slots have been popped."
(defun byte-compile-suppressed-warnings (form)
(let ((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))
;; Warn about misuses of make-variable-buffer-local.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] scratch/with-suppressed-warnings a3f4c42: We need byte-compile-progn in the non-toplevel case apparently,
Lars Ingebrigtsen <=