From c6a7104c1b04fa480ed503fc5ed1ef7c89272f62 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 16 Feb 2004 00:03:56 +0000 Subject: [PATCH] (ccl-compile-write): Pass `left' to ccl-embed-code to generate correct code of write-expr-register. --- 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 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)))) -- 2.39.2