(ccl-compile-translate-character): Handle

the case that a tranlation table is CCL register correctly.
This commit is contained in:
Kenichi Handa 1999-01-23 02:15:46 +00:00
parent 6d4e95cbf6
commit 2ea006961e

View file

@ -885,7 +885,7 @@
(rrr (nth 3 cmd)))
(ccl-check-register rrr cmd)
(ccl-check-register RRR cmd)
(cond ((symbolp Rrr)
(cond ((and (symbolp Rrr) (not (get Rrr 'ccl-register-number)))
(if (not (get Rrr 'translation-table))
(error "CCL: Invalid translation table %s in %s" Rrr cmd))
(ccl-embed-extended-command 'translate-character-const-tbl