Mercurial > emacs
comparison lisp/international/fontset.el @ 17295:34efd2073019
(x-charset-registries): Add Tibetan entries.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 05 Apr 1997 02:35:53 +0000 |
| parents | 9c0c6ae6dcad |
| children | e7f187613585 |
comparison
equal
deleted
inserted
replaced
| 17294:d7ae63db9e6e | 17295:34efd2073019 |
|---|---|
| 71 (ethiopic . "Ethiopic-Unicode") | 71 (ethiopic . "Ethiopic-Unicode") |
| 72 (ascii-right-to-left . "ISO8859-1") | 72 (ascii-right-to-left . "ISO8859-1") |
| 73 (indian-is13194 . "IS13194-Devanagari") | 73 (indian-is13194 . "IS13194-Devanagari") |
| 74 (indian-2-column . "MuleIndian-2") | 74 (indian-2-column . "MuleIndian-2") |
| 75 (indian-1-column . "MuleIndian-1") | 75 (indian-1-column . "MuleIndian-1") |
| 76 (lao . "lao.mule-1"))) | 76 (lao . "lao.mule-1") |
| 77 (tibetan . "Mule.Tibetan-0") | |
| 78 (tibetan-1-column . "Mule.Tibetan-1") | |
| 79 )) | |
| 77 | 80 |
| 78 (let ((l x-charset-registries)) | 81 (let ((l x-charset-registries)) |
| 79 (while l | 82 (while l |
| 80 (put-charset-property (car (car l)) 'x-charset-registry (cdr (car l))) | 83 (put-charset-property (car (car l)) 'x-charset-registry (cdr (car l))) |
| 81 (setq l (cdr l)))) | 84 (setq l (cdr l)))) |