From: Kenichi Handa <handa@m17n.org>
Date: Sat, 23 Jan 1999 02:15:46 +0000 (+0000)
Subject: (ccl-compile-translate-character): Handle
X-Git-Tag: emacs-20.4~797
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ea006961efbd28474ca01b6aa78f8d6a5c82953;p=emacs.git

(ccl-compile-translate-character): Handle
the case that a tranlation table is CCL register correctly.
---

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