Mercurial > hg > xemacs-beta
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 |