(ccl-compile-expression): Don't generate

invalid self-assignment code.

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index 142d86d6fdebe31d01f3e7ccbfbb5cbed636d97f..429e740ec100f93f1b32e06159ba713b3fba429b 100644 (file)
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -489,7 +489,8 @@
          (setq left 'r7)))
 
     ;; Now EXPR has the form (LEFT OP RIGHT).
-    (if (eq rrr left)
+    (if (and (eq rrr left)
+            (< op (length ccl-assign-arith-table)))
        ;; Compile this SET statement as `(RRR OP= RIGHT)'.
        (if (integerp right)
            (progn