Mercurial > emacs
comparison lisp/international/ccl.el @ 22186:fc4aaf1b1772
Change term "character translation table" to "translation table".
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 22 May 1998 09:45:34 +0000 |
| parents | dc00ef92855c |
| children | 30beacf88b75 |
comparison
equal
deleted
inserted
replaced
| 22185:80a2aa51a6e1 | 22186:fc4aaf1b1772 |
|---|---|
| 880 (RRR (nth 2 cmd)) | 880 (RRR (nth 2 cmd)) |
| 881 (rrr (nth 3 cmd))) | 881 (rrr (nth 3 cmd))) |
| 882 (ccl-check-register rrr cmd) | 882 (ccl-check-register rrr cmd) |
| 883 (ccl-check-register RRR cmd) | 883 (ccl-check-register RRR cmd) |
| 884 (cond ((symbolp Rrr) | 884 (cond ((symbolp Rrr) |
| 885 (if (not (get Rrr 'character-translation-table)) | 885 (if (not (get Rrr 'translation-table)) |
| 886 (error "CCL: Invalid character translation table %s in %s" | 886 (error "CCL: Invalid translation table %s in %s" Rrr cmd)) |
| 887 Rrr cmd)) | |
| 888 (ccl-embed-extended-command 'translate-character-const-tbl | 887 (ccl-embed-extended-command 'translate-character-const-tbl |
| 889 rrr RRR 0) | 888 rrr RRR 0) |
| 890 (ccl-embed-data Rrr)) | 889 (ccl-embed-data Rrr)) |
| 891 (t | 890 (t |
| 892 (ccl-check-register Rrr cmd) | 891 (ccl-check-register Rrr cmd) |
| 1239 | 1238 |
| 1240 (defun ccl-dump-write-multibyte-character (rrr RRR Rrr) | 1239 (defun ccl-dump-write-multibyte-character (rrr RRR Rrr) |
| 1241 (insert (format "write-multibyte-character r%d r%d\n" RRR rrr))) | 1240 (insert (format "write-multibyte-character r%d r%d\n" RRR rrr))) |
| 1242 | 1241 |
| 1243 (defun ccl-dump-translate-character (rrr RRR Rrr) | 1242 (defun ccl-dump-translate-character (rrr RRR Rrr) |
| 1244 (insert (format "character translation table(r%d) r%d r%d\n" Rrr RRR rrr))) | 1243 (insert (format "translation table(r%d) r%d r%d\n" Rrr RRR rrr))) |
| 1245 | 1244 |
| 1246 (defun ccl-dump-translate-character-const-tbl (rrr RRR Rrr) | 1245 (defun ccl-dump-translate-character-const-tbl (rrr RRR Rrr) |
| 1247 (let ((tbl (ccl-get-next-code))) | 1246 (let ((tbl (ccl-get-next-code))) |
| 1248 (insert (format "character translation table(%d) r%d r%d\n" tbl RRR rrr)))) | 1247 (insert (format "translation table(%d) r%d r%d\n" tbl RRR rrr)))) |
| 1249 | 1248 |
| 1250 (defun ccl-dump-iterate-multiple-map (rrr RRR Rrr) | 1249 (defun ccl-dump-iterate-multiple-map (rrr RRR Rrr) |
| 1251 (let ((notbl (ccl-get-next-code)) | 1250 (let ((notbl (ccl-get-next-code)) |
| 1252 (i 0) id) | 1251 (i 0) id) |
| 1253 (insert (format "iterate-multiple-map r%d r%d\n" RRR rrr)) | 1252 (insert (format "iterate-multiple-map r%d r%d\n" RRR rrr)) |