[Emacs-diffs] scratch/with-suppressed-warnings a9c3082: Use internal variable name for byte-compile--suppressed-warnings

[Lars Ingebrigtsen]

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))