comparison lisp/mule/japanese.el @ 778:2923009caf47

[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 943eaba38521
children 0f42d0a17667
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
30 30
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
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)"
107 '(dimension
108 2
109 registry "JISX0213.2000-1"
110 chars 94
111 columns 2
112 direction l2r
113 final ?O
114 graphic 0
115 short-name "JISX0213-1"
116 long-name "JISX0213-1"
117 ))
118
119 ;; JISX0213 Plane 2
120 (make-charset 'japanese-jisx0213-2 "JISX0213 Plane 2 (Japanese)"
121 '(dimension
122 2
123 registry "JISX0213.2000-2"
124 chars 94
125 columns 2
126 direction l2r
127 final ?P
128 graphic 0
129 short-name "JISX0213-2"
130 long-name "JISX0213-2"
131 ))
35 132
36 ;;; Syntax of Japanese characters. 133 ;;; Syntax of Japanese characters.
37 (modify-syntax-entry 'katakana-jisx0201 "w") 134 (modify-syntax-entry 'katakana-jisx0201 "w")
38 (modify-syntax-entry 'japanese-jisx0212 "w") 135 (modify-syntax-entry 'japanese-jisx0212 "w")
39 136