Mercurial > emacs
changeset 53961:74d57e5bfed4
(ccl-compile-write): Pass `left' to
ccl-embed-code to generate correct code of write-expr-register.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 16 Feb 2004 00:03:56 +0000 |
| parents | ba090f1b6dc0 |
| children | 1b25f84dfa27 |
| files | lisp/international/ccl.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/ccl.el Sun Feb 15 23:34:41 2004 +0000 +++ b/lisp/international/ccl.el Mon Feb 16 00:03:56 2004 +0000 @@ -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))))