[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/with-suppressed-warnings a9c3082: Use internal var
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] scratch/with-suppressed-warnings a9c3082: Use internal variable name for byte-compile--suppressed-warnings |
Date: |
Sun, 9 Jun 2019 16:42:52 -0400 (EDT) |
branch: scratch/with-suppressed-warnings
commit a9c3082d91bf405a47f552b15e17c70b6e66d36a
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Use internal variable name for byte-compile--suppressed-warnings
---
lisp/emacs-lisp/bytecomp.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 7e54671..a88d157 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -331,7 +331,8 @@ suppress. For example, (not mapcar) will suppress warnings
about mapcar."
,@(mapcar (lambda (x) `(const ,x))
byte-compile-warning-types))))
-(defvar byte-compile-suppressed-warnings nil)
+(defvar byte-compile--suppressed-warnings nil
+ "Dynamically bound by `with-suppressed-warnings' to suppress warnings.")
;;;###autoload
(put 'byte-compile-warnings 'safe-local-variable
@@ -342,7 +343,7 @@ suppress. For example, (not mapcar) will suppress warnings
about mapcar."
(defun byte-compile-warning-enabled-p (warning &optional symbol)
"Return non-nil if WARNING is enabled, according to `byte-compile-warnings'."
(let ((suppress nil))
- (dolist (elem byte-compile-suppressed-warnings)
+ (dolist (elem byte-compile--suppressed-warnings)
(when (and (eq (car elem) warning)
(memq symbol (cdr elem)))
(setq suppress t)))
@@ -2546,8 +2547,8 @@ for that function basically turns it into a `progn'."
'byte-compile-file-form-with-suppressed-warnings)
(defun byte-compile-file-form-with-suppressed-warnings (form)
;; cf byte-compile-file-form-progn.
- (let ((byte-compile-suppressed-warnings
- (append (cadadr form) byte-compile-suppressed-warnings)))
+ (let ((byte-compile--suppressed-warnings
+ (append (cadadr form) byte-compile--suppressed-warnings)))
(mapc 'byte-compile-file-form (cddr form))
nil))
@@ -4802,8 +4803,8 @@ binding slots have been popped."
(byte-defop-compiler-1 internal--with-suppressed-warnings
byte-compile-suppressed-warnings)
(defun byte-compile-suppressed-warnings (form)
- (let ((byte-compile-suppressed-warnings
- (append (cadadr form) byte-compile-suppressed-warnings)))
+ (let ((byte-compile--suppressed-warnings
+ (append (cadadr form) byte-compile--suppressed-warnings)))
(byte-compile-progn (cons 'progn (cddr form)))
nil))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] scratch/with-suppressed-warnings a9c3082: Use internal variable name for byte-compile--suppressed-warnings,
Lars Ingebrigtsen <=