From ec3f8be9d74bd27c52b6b00cc7be5f8f529318dd Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 15 Mar 2000 02:29:17 +0000 Subject: [PATCH] (ccl-compile-expression): Don't generate invalid self-assignment code. --- lisp/international/ccl.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.5