diff options
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 86f7309d1b7..63ff71ada15 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -1261,7 +1261,9 @@ | |||
| 1261 | tags))))))) | 1261 | tags))))))) |
| 1262 | ((cond ((eq op 'byte-constant2) (setq op 'byte-constant) t) | 1262 | ((cond ((eq op 'byte-constant2) (setq op 'byte-constant) t) |
| 1263 | ((memq op byte-constref-ops))) | 1263 | ((memq op byte-constref-ops))) |
| 1264 | (setq tmp (aref constvec offset) | 1264 | (setq tmp (if (>= offset (length constvec)) |
| 1265 | (list 'out-of-range offset) | ||
| 1266 | (aref constvec offset)) | ||
| 1265 | offset (if (eq op 'byte-constant) | 1267 | offset (if (eq op 'byte-constant) |
| 1266 | (byte-compile-get-constant tmp) | 1268 | (byte-compile-get-constant tmp) |
| 1267 | (or (assq tmp byte-compile-variables) | 1269 | (or (assq tmp byte-compile-variables) |