From 2ea006961efbd28474ca01b6aa78f8d6a5c82953 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 23 Jan 1999 02:15:46 +0000 Subject: [PATCH] (ccl-compile-translate-character): Handle the case that a tranlation table is CCL register correctly. --- lisp/international/ccl.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el index b22fd32cbda..33ba65201b2 100644 --- a/lisp/international/ccl.el +++ b/lisp/international/ccl.el @@ -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 -- 2.39.2