diff options
| author | Kenichi Handa | 2000-03-15 02:29:17 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2000-03-15 02:29:17 +0000 |
| commit | ec3f8be9d74bd27c52b6b00cc7be5f8f529318dd (patch) | |
| tree | e9163f949b73c4b4bdb2cb969be0b75e3b26d821 | |
| parent | dcf1003db6145e0678a8342d43e0d646a0b77b7f (diff) | |
| download | emacs-ec3f8be9d74bd27c52b6b00cc7be5f8f529318dd.tar.gz emacs-ec3f8be9d74bd27c52b6b00cc7be5f8f529318dd.zip | |
(ccl-compile-expression): Don't generate
invalid self-assignment code.
| -rw-r--r-- | lisp/international/ccl.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el index 142d86d6fde..429e740ec10 100644 --- a/lisp/international/ccl.el +++ b/lisp/international/ccl.el | |||
| @@ -489,7 +489,8 @@ | |||
| 489 | (setq left 'r7))) | 489 | (setq left 'r7))) |
| 490 | 490 | ||
| 491 | ;; Now EXPR has the form (LEFT OP RIGHT). | 491 | ;; Now EXPR has the form (LEFT OP RIGHT). |
| 492 | (if (eq rrr left) | 492 | (if (and (eq rrr left) |
| 493 | (< op (length ccl-assign-arith-table))) | ||
| 493 | ;; Compile this SET statement as `(RRR OP= RIGHT)'. | 494 | ;; Compile this SET statement as `(RRR OP= RIGHT)'. |
| 494 | (if (integerp right) | 495 | (if (integerp right) |
| 495 | (progn | 496 | (progn |