From: Kenichi Handa <handa@m17n.org>
Date: Wed, 15 Mar 2000 02:29:17 +0000 (+0000)
Subject: (ccl-compile-expression): Don't generate
X-Git-Tag: emacs-pretest-21.0.90~4637
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec3f8be9d74bd27c52b6b00cc7be5f8f529318dd;p=emacs.git

(ccl-compile-expression): Don't generate
invalid self-assignment code.
---

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 @@
 	  (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