From: Kenichi Handa <handa@m17n.org>
Date: Mon, 16 Feb 2004 00:03:56 +0000 (+0000)
Subject: (ccl-compile-write): Pass `left' to
X-Git-Tag: ttn-vms-21-2-B4~7617
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c6a7104c1b04fa480ed503fc5ed1ef7c89272f62;p=emacs.git

(ccl-compile-write): Pass `left' to
ccl-embed-code to generate correct code of write-expr-register.
---

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index 4ffea66caeb..e9e46bb0c6c 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -774,7 +774,8 @@
 	       (ccl-check-register right rrr)
 	       (ccl-embed-code 'write-expr-register 0
 			       (logior (ash op 3)
-				       (get right 'ccl-register-number))))))
+				       (get right 'ccl-register-number))
+			       left))))
 
 	  (t
 	   (error "CCL: Invalid argument: %s" cmd))))