diff options
| author | Karl Heuer | 1997-12-04 05:58:56 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-12-04 05:58:56 +0000 |
| commit | 98a602e3583233a6692c8dc16dfbf9d3bb90b2c0 (patch) | |
| tree | e51ecff839dd66d117750c901ca331e79fb3e477 | |
| parent | 50bec09179d68f86bbef0e637bd8c1dabf8ebe23 (diff) | |
| download | emacs-98a602e3583233a6692c8dc16dfbf9d3bb90b2c0.tar.gz emacs-98a602e3583233a6692c8dc16dfbf9d3bb90b2c0.zip | |
(byte-optimize-lapcode): Correctly
distinguish byte-constant from operations on variables.
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 56dcc9e2427..be958e53abb 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -1826,7 +1826,7 @@ may generate incorrect code.") | |||
| 1826 | (setq lap0 (car rest) | 1826 | (setq lap0 (car rest) |
| 1827 | lap1 (nth 1 rest)) | 1827 | lap1 (nth 1 rest)) |
| 1828 | (if (memq (car lap0) byte-constref-ops) | 1828 | (if (memq (car lap0) byte-constref-ops) |
| 1829 | (if (eq (cdr lap0) 'byte-constant) | 1829 | (if (not (eq (car lap0) 'byte-constant)) |
| 1830 | (or (memq (cdr lap0) byte-compile-variables) | 1830 | (or (memq (cdr lap0) byte-compile-variables) |
| 1831 | (setq byte-compile-variables (cons (cdr lap0) | 1831 | (setq byte-compile-variables (cons (cdr lap0) |
| 1832 | byte-compile-variables))) | 1832 | byte-compile-variables))) |