comparison lisp/mule/arabic.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 2923009caf47
children d402d7b18bd8
comparison
equal deleted inserted replaced
3658:0db1aaedbbef 3659:98af8a976fc3
45 ;; For Arabic, we need three different types of character sets. 45 ;; For Arabic, we need three different types of character sets.
46 ;; Digits are of direction left-to-right and of width 1-column. 46 ;; Digits are of direction left-to-right and of width 1-column.
47 ;; Others are of direction right-to-left and of width 1-column or 47 ;; Others are of direction right-to-left and of width 1-column or
48 ;; 2-column. 48 ;; 2-column.
49 (make-charset 'arabic-digit "Arabic digit" 49 (make-charset 'arabic-digit "Arabic digit"
50 '(dimension 50 '(dimension 1
51 1 51 registries ["MuleArabic-0"]
52 registry "MuleArabic-0"
53 chars 94 52 chars 94
54 columns 1 53 columns 1
55 direction l2r 54 direction l2r
56 final ?2 55 final ?2
57 graphic 0 56 graphic 0
60 )) 59 ))
61 60
62 (make-charset 'arabic-1-column "Arabic 1-column" 61 (make-charset 'arabic-1-column "Arabic 1-column"
63 '(dimension 62 '(dimension
64 1 63 1
65 registry "MuleArabic-1" 64 registries ["MuleArabic-1"]
66 chars 94 65 chars 94
67 columns 1 66 columns 1
68 direction r2l 67 direction r2l
69 final ?3 68 final ?3
70 graphic 0 69 graphic 0
73 )) 72 ))
74 73
75 (make-charset 'arabic-2-column "Arabic 2-column" 74 (make-charset 'arabic-2-column "Arabic 2-column"
76 '(dimension 75 '(dimension
77 1 76 1
78 registry "MuleArabic-2" 77 registries ["MuleArabic-2"]
79 chars 94 78 chars 94
80 columns 2 79 columns 2
81 direction r2l 80 direction r2l
82 final ?4 81 final ?4
83 graphic 0 82 graphic 0