Mercurial > emacs

changeset 24152:202b1402425b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ccl-compile-translate-character): Handle the case that a tranlation table is CCL register correctly.
author Kenichi Handa <handa@m17n.org>
date Sat, 23 Jan 1999 02:15:46 +0000
parents 818bfb5dcae9
children 729affdf2ca1
files lisp/international/ccl.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/ccl.el	Fri Jan 22 22:18:01 1999 +0000
+++ b/lisp/international/ccl.el	Sat Jan 23 02:15:46 1999 +0000
@@ -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