diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-01-08 21:40:45 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-01-08 21:40:45 +0100 |
| commit | 400f620f24b90540f71673a998c41327237330be (patch) | |
| tree | 2e94333ffc6ac99987f74833bafe3191eb83c4ed /lisp/emacs-lisp/bytecomp.el | |
| parent | 213b5d73159cafbdd52b9c0fb0479544cca98a77 (diff) | |
| parent | a31bfd594523dc06941ceb89cdbeabcd4a5d19f7 (diff) | |
| download | emacs-400f620f24b90540f71673a998c41327237330be.tar.gz emacs-400f620f24b90540f71673a998c41327237330be.tar.bz2 emacs-400f620f24b90540f71673a998c41327237330be.zip | |
Merge remote-tracking branch 'savannah/master' into HEAD
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 8df008e1cd6..54f8301b085 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -3529,10 +3529,11 @@ for symbols generated by the byte compiler itself." (and od (not (memq var byte-compile-not-obsolete-vars)) (not (memq var byte-compile-global-not-obsolete-vars)) - (or (pcase (nth 1 od) - ('set (not (eq access-type 'reference))) - ('get (eq access-type 'reference)) - (_ t))))) + (not (memq var byte-compile-lexical-variables)) + (pcase (nth 1 od) + ('set (not (eq access-type 'reference))) + ('get (eq access-type 'reference)) + (_ t)))) (byte-compile-warn-obsolete var)))) (defsubst byte-compile-dynamic-variable-op (base-op var) |