From 94e794c8d8b93a1d6813742da12135f2746ef80b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 20 Apr 2018 19:02:16 -0400 Subject: Tweak recent bytecomp defvaralias change * lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defvar-function): Respect with-no-warnings. --- lisp/emacs-lisp/bytecomp.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 50e67046e8b..ad6b5b7ce21 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2433,8 +2433,9 @@ list that represents a doc string reference. (pcase form (`(defvaralias ,_ ',newname . ,_) (when (memq newname byte-compile-bound-variables) - (byte-compile-warn - "Alias for `%S' should be declared before its referent" newname)))) + (if (byte-compile-warning-enabled-p 'suspicious) + (byte-compile-warn + "Alias for `%S' should be declared before its referent" newname))))) (byte-compile-keep-pending form)) (put 'custom-declare-variable 'byte-hunk-handler -- cgit v1.2.3