Mercurial > emacs

diff lisp/international/ccl.el @ 28152:1b7866e465bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ccl-compile-expression): Don't generate invalid self-assignment code.
author Kenichi Handa <handa@m17n.org>
date Wed, 15 Mar 2000 02:29:17 +0000
parents 206f04753cc1
children 837bc0327945
line wrap: on
line diff
--- 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