[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/with-suppressed-warnings 19d6e0f: Fix up the non-t
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] scratch/with-suppressed-warnings 19d6e0f: Fix up the non-toplevel form to mimick no-warnings syntactically |
Date: |
Sun, 9 Jun 2019 17:55:34 -0400 (EDT) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] scratch/with-suppressed-warnings 19d6e0f: Fix up the non-toplevel form to mimick no-warnings syntactically,
Lars Ingebrigtsen <=