diff options
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 6d6eb68535e..a49218fe02d 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -287,8 +287,7 @@ ;; old-style-byte-codes, but not mixed cases (not sure ;; about new-style into new-style). (not lexical-binding) - (not (and (>= (length fn) 7) - (aref fn 6)))) ;6 = COMPILED_PUSH_ARGS + (not (integerp (aref fn 0)))) ;New lexical byte-code. ;; (message "Inlining %S byte-code" name) (fetch-bytecode fn) (let ((string (aref fn 1))) |