Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
line wrap: on
line diff
--- a/lisp/mule/japanese.el	Fri Mar 15 11:00:56 2002 +0000
+++ b/lisp/mule/japanese.el	Sat Mar 16 10:39:19 2002 +0000
@@ -33,6 +33,103 @@
 
 ;;; Code:
 
+; (make-charset 'katakana-jisx0201 
+; 	      "Katakana Part of JISX0201.1976"
+; 	      '(dimension
+; 		1
+; 		registry "JISX0201"
+; 		chars 94
+; 		columns 1
+; 		direction l2r
+; 		final ?I
+; 		graphic 1
+; 		short-name "JISX0201 Katakana"
+; 		long-name "Japanese Katakana (JISX0201.1976)"
+; 		))
+
+; (make-charset 'latin-jisx0201 
+; 	      "Roman Part of JISX0201.1976"
+; 	      '(dimension
+; 		1
+; 		registry "JISX0201"
+; 		chars 94
+; 		columns 1
+; 		direction l2r
+; 		final ?J
+; 		graphic 0
+; 		short-name "JISX0201 Roman"
+; 		long-name "Japanese Roman (JISX0201.1976)"
+; 		))
+
+; (make-charset 'japanese-jisx0208-1978 
+; 	      "JISX0208.1978 Japanese Kanji (so called \"old JIS\"): ISO-IR-42"
+; 	      '(dimension
+; 		2
+; 		registry "JISX0208.1990"
+; 		registry "JISX0208.1978"
+; 		chars 94
+; 		columns 2
+; 		direction l2r
+; 		final ?@
+; 		graphic 0
+; 		short-name "JISX0208.1978"
+; 		long-name "JISX0208.1978 (Japanese): ISO-IR-42"
+; 		))
+
+; (make-charset 'japanese-jisx0208 
+; 	      "JISX0208.1983/1990 Japanese Kanji: ISO-IR-87"
+; 	      '(dimension
+; 		2
+; 		chars 94
+; 		columns 2
+; 		direction l2r
+; 		final ?B
+; 		graphic 0
+; 		short-name "JISX0208"
+; 		long-name "JISX0208.1983/1990 (Japanese): ISO-IR-87"
+; 		))
+
+; (make-charset 'japanese-jisx0212 
+; 	      "JISX0212 Japanese supplement: ISO-IR-159"
+; 	      '(dimension
+; 		2
+; 		registry "JISX0212"
+; 		chars 94
+; 		columns 2
+; 		direction l2r
+; 		final ?D
+; 		graphic 0
+; 		short-name "JISX0212"
+; 		long-name "JISX0212 (Japanese): ISO-IR-159"
+; 		))
+
+(make-charset 'japanese-jisx0213-1 "JISX0213 Plane 1 (Japanese)"
+	      '(dimension
+		2
+		registry "JISX0213.2000-1"
+		chars 94
+		columns 2
+		direction l2r
+		final ?O
+		graphic 0
+		short-name "JISX0213-1"
+		long-name "JISX0213-1"
+		))
+
+;; JISX0213 Plane 2
+(make-charset 'japanese-jisx0213-2 "JISX0213 Plane 2 (Japanese)"
+	      '(dimension
+		2
+		registry "JISX0213.2000-2"
+		chars 94
+		columns 2
+		direction l2r
+		final ?P
+		graphic 0
+		short-name "JISX0213-2"
+		long-name "JISX0213-2"
+		))
+
 ;;; Syntax of Japanese characters.
 (modify-syntax-entry 'katakana-jisx0201 "w")
 (modify-syntax-entry 'japanese-jisx0212 "w")