# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 953087357 0
# Node ID 1b7866e465bdc6dbec1e8162716c96de6969f522
# Parent  ee4a301b1d5649f110e2e64ce27acd99e2e1b9ea
(ccl-compile-expression): Don't generate
invalid self-assignment code.

diff -r ee4a301b1d56 -r 1b7866e465bd lisp/international/ccl.el
--- a/lisp/international/ccl.el	Wed Mar 15 02:28:31 2000 +0000
+++ b/lisp/international/ccl.el	Wed Mar 15 02:29:17 2000 +0000
@@ -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