diff options
| author | Kenichi Handa | 1999-01-23 02:15:46 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1999-01-23 02:15:46 +0000 |
| commit | 2ea006961efbd28474ca01b6aa78f8d6a5c82953 (patch) | |
| tree | 32cc1424549bc247434c6418552ca35eaf2742ed | |
| parent | 6d4e95cbf63b2d56479431fde63eeb8e25768602 (diff) | |
| download | emacs-2ea006961efbd28474ca01b6aa78f8d6a5c82953.tar.gz emacs-2ea006961efbd28474ca01b6aa78f8d6a5c82953.zip | |
(ccl-compile-translate-character): Handle
the case that a tranlation table is CCL register correctly.
| -rw-r--r-- | lisp/international/ccl.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 @@ | |||
| 885 | (rrr (nth 3 cmd))) | 885 | (rrr (nth 3 cmd))) |
| 886 | (ccl-check-register rrr cmd) | 886 | (ccl-check-register rrr cmd) |
| 887 | (ccl-check-register RRR cmd) | 887 | (ccl-check-register RRR cmd) |
| 888 | (cond ((symbolp Rrr) | 888 | (cond ((and (symbolp Rrr) (not (get Rrr 'ccl-register-number))) |
| 889 | (if (not (get Rrr 'translation-table)) | 889 | (if (not (get Rrr 'translation-table)) |
| 890 | (error "CCL: Invalid translation table %s in %s" Rrr cmd)) | 890 | (error "CCL: Invalid translation table %s in %s" Rrr cmd)) |
| 891 | (ccl-embed-extended-command 'translate-character-const-tbl | 891 | (ccl-embed-extended-command 'translate-character-const-tbl |