diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-11 22:27:41 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-11 22:27:41 -0500 |
| commit | 009bc7c9d8bd0074a78ebef73102f600a514172c (patch) | |
| tree | fca428ed3b8f35ec8b18f34f817adf1a3be3a53f /lisp/emacs-lisp | |
| parent | 7109307c1a62fb3ab781989d495bacd3c2b15a2e (diff) | |
| download | emacs-009bc7c9d8bd0074a78ebef73102f600a514172c.tar.gz emacs-009bc7c9d8bd0074a78ebef73102f600a514172c.tar.bz2 emacs-009bc7c9d8bd0074a78ebef73102f600a514172c.zip | |
* lisp/emacs-lisp/cconv.el (cconv--analyze-use): Tune down the warning
Don't warn for always-nil bindings if the binding is made explicit.
Fixes bug#47080.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cconv.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el index ca641a2ef0c..cfb0168a6e5 100644 --- a/lisp/emacs-lisp/cconv.el +++ b/lisp/emacs-lisp/cconv.el @@ -602,7 +602,8 @@ FORM is the parent form that binds this var." (byte-compile-warn "%s `%S' not left unused" varkind var)) ((and (let (or 'let* 'let) (car form)) - `(,(or `(,var) `(,var nil)) t nil ,_ ,_)) + `(,`(,var) ;; (or `(,var nil) : Too many false positives: bug#47080 + t nil ,_ ,_)) ;; FIXME: Convert this warning to use `macroexp--warn-wrap' ;; so as to give better position information. (unless (not (intern-soft var)) |