Mercurial > hg > xemacs-beta
comparison lisp/mule/thai-xtis.el @ 3659:98af8a976fc3
[xemacs-hg @ 2006-11-05 22:31:31 by aidan]
Support specifying fonts for particular character sets in Mule; support
translation to ISO 10646-1 for Mule character sets without an otherwise
matching font; move to a vector of X11-charset-X11-registry instead of a
regex for the charset-registry property.
author | aidan |
---|---|
date | Sun, 05 Nov 2006 22:31:46 +0000 |
parents | 578cb2932d72 |
children | 1d74a1d115ee |
comparison
equal
deleted
inserted
replaced
3658:0db1aaedbbef | 3659:98af8a976fc3 |
---|---|
33 ;; Virach Sornlertlamvanich <virach@links.nectec.or.th> is supported. | 33 ;; Virach Sornlertlamvanich <virach@links.nectec.or.th> is supported. |
34 | 34 |
35 ;;; Code: | 35 ;;; Code: |
36 | 36 |
37 (make-charset 'thai-xtis "Precomposed Thai (XTIS by Virach)." | 37 (make-charset 'thai-xtis "Precomposed Thai (XTIS by Virach)." |
38 '(registry "xtis-0" | 38 '(registries ["xtis-0"] |
39 dimension 2 | 39 dimension 2 |
40 columns 1 | 40 columns 1 |
41 chars 94 | 41 chars 94 |
42 final ?? | 42 final ?? |
43 graphic 0)) | 43 graphic 0)) |
44 | 44 |
45 (define-category ?x "Precomposed Thai character.") | 45 (define-category ?x "Precomposed Thai character.") |
46 (modify-category-entry 'thai-xtis ?x) | 46 (modify-category-entry 'thai-xtis ?x) |
47 | 47 |
48 (when (featurep 'xemacs) | 48 (when (featurep 'xemacs) |