Mercurial > hg > xemacs-beta

comparison lisp/mule/japanese.el @ 3659:98af8a976fc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 402bf23dd28f
children aa28d959af41
comparison
equal deleted inserted replaced
3658:0db1aaedbbef 3659:98af8a976fc3
31 ;; For Japanese, character sets JISX0201, JISX0208, JISX0212 are 31 ;; For Japanese, character sets JISX0201, JISX0208, JISX0212 are
32 ;; supported. 32 ;; supported.
33 33
34 ;;; Code: 34 ;;; Code:
35 35
36 ; (make-charset 'katakana-jisx0201
37 ; "Katakana Part of JISX0201.1976"
38 ; '(dimension
39 ; 1
40 ; registry "JISX0201"
41 ; chars 94
42 ; columns 1
43 ; direction l2r
44 ; final ?I
45 ; graphic 1
46 ; short-name "JISX0201 Katakana"
47 ; long-name "Japanese Katakana (JISX0201.1976)"
48 ; ))
49
50 ; (make-charset 'latin-jisx0201
51 ; "Roman Part of JISX0201.1976"
52 ; '(dimension
53 ; 1
54 ; registry "JISX0201"
55 ; chars 94
56 ; columns 1
57 ; direction l2r
58 ; final ?J
59 ; graphic 0
60 ; short-name "JISX0201 Roman"
61 ; long-name "Japanese Roman (JISX0201.1976)"
62 ; ))
63
64 ; (make-charset 'japanese-jisx0208-1978
65 ; "JISX0208.1978 Japanese Kanji (so called \"old JIS\"): ISO-IR-42"
66 ; '(dimension
67 ; 2
68 ; registry "JISX0208.1990"
69 ; registry "JISX0208.1978"
70 ; chars 94
71 ; columns 2
72 ; direction l2r
73 ; final ?@
74 ; graphic 0
75 ; short-name "JISX0208.1978"
76 ; long-name "JISX0208.1978 (Japanese): ISO-IR-42"
77 ; ))
78
79 ; (make-charset 'japanese-jisx0208
80 ; "JISX0208.1983/1990 Japanese Kanji: ISO-IR-87"
81 ; '(dimension
82 ; 2
83 ; chars 94
84 ; columns 2
85 ; direction l2r
86 ; final ?B
87 ; graphic 0
88 ; short-name "JISX0208"
89 ; long-name "JISX0208.1983/1990 (Japanese): ISO-IR-87"
90 ; ))
91
92 ; (make-charset 'japanese-jisx0212
93 ; "JISX0212 Japanese supplement: ISO-IR-159"
94 ; '(dimension
95 ; 2
96 ; registry "JISX0212"
97 ; chars 94
98 ; columns 2
99 ; direction l2r
100 ; final ?D
101 ; graphic 0
102 ; short-name "JISX0212"
103 ; long-name "JISX0212 (Japanese): ISO-IR-159"
104 ; ))
105
106 (make-charset 'japanese-jisx0213-1 "JISX0213 Plane 1 (Japanese)" 36 (make-charset 'japanese-jisx0213-1 "JISX0213 Plane 1 (Japanese)"
107 '(dimension 37 '(dimension
108 2 38 2
109 registry "JISX0213.2000-1" 39 registries ["JISX0213.2000-1"]
110 chars 94 40 chars 94
111 columns 2 41 columns 2
112 direction l2r 42 direction l2r
113 final ?O 43 final ?O
114 graphic 0 44 graphic 0
118 48
119 ;; JISX0213 Plane 2 49 ;; JISX0213 Plane 2
120 (make-charset 'japanese-jisx0213-2 "JISX0213 Plane 2 (Japanese)" 50 (make-charset 'japanese-jisx0213-2 "JISX0213 Plane 2 (Japanese)"
121 '(dimension 51 '(dimension
122 2 52 2
123 registry "JISX0213.2000-2" 53 registries ["JISX0213.2000-2"]
124 chars 94 54 chars 94
125 columns 2 55 columns 2
126 direction l2r 56 direction l2r
127 final ?P 57 final ?P
128 graphic 0 58 graphic 0