diff options
| author | Glenn Morris | 2018-04-20 19:02:16 -0400 |
|---|---|---|
| committer | Glenn Morris | 2018-04-20 19:02:16 -0400 |
| commit | 94e794c8d8b93a1d6813742da12135f2746ef80b (patch) | |
| tree | 26cb4425226f2ab41c832764585a6a5ac9548649 | |
| parent | 18de2ada243653ece98b18044233e5d29eee5903 (diff) | |
| download | emacs-94e794c8d8b93a1d6813742da12135f2746ef80b.tar.gz emacs-94e794c8d8b93a1d6813742da12135f2746ef80b.zip | |
Tweak recent bytecomp defvaralias change
* lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defvar-function):
Respect with-no-warnings.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 3 insertions, 2 deletions
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. | |||
| 2433 | (pcase form | 2433 | (pcase form |
| 2434 | (`(defvaralias ,_ ',newname . ,_) | 2434 | (`(defvaralias ,_ ',newname . ,_) |
| 2435 | (when (memq newname byte-compile-bound-variables) | 2435 | (when (memq newname byte-compile-bound-variables) |
| 2436 | (byte-compile-warn | 2436 | (if (byte-compile-warning-enabled-p 'suspicious) |
| 2437 | "Alias for `%S' should be declared before its referent" newname)))) | 2437 | (byte-compile-warn |
| 2438 | "Alias for `%S' should be declared before its referent" newname))))) | ||
| 2438 | (byte-compile-keep-pending form)) | 2439 | (byte-compile-keep-pending form)) |
| 2439 | 2440 | ||
| 2440 | (put 'custom-declare-variable 'byte-hunk-handler | 2441 | (put 'custom-declare-variable 'byte-hunk-handler |