diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-09 22:42:43 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-09 22:42:43 +0200 |
commit | a9c3082d91bf405a47f552b15e17c70b6e66d36a (patch) | |
tree | f21ca4c04ec26caef4848e2baf0a1b7a17265951 | |
parent | 831955fb922f5408a30dedf8e204159a594bd02d (diff) | |
download | emacs-a9c3082d91bf405a47f552b15e17c70b6e66d36a.tar.gz |
Use internal variable name for byte-compile--suppressed-warnings
-rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 7e546712864..a88d157930a 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)) |