projects / chise / xemacs-chise.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
(M-00100): Add `ideographic-structure'.
[chise/xemacs-chise.git] / lisp / utf-2000 / isolated-char.el
diff --git a/lisp/utf-2000/isolated-char.el b/lisp/utf-2000/isolated-char.el
index c177f35..dd15c89 100644 (file)
--- a/lisp/utf-2000/isolated-char.el
+++ b/lisp/utf-2000/isolated-char.el
@@ -24,6 +24,153 @@
 
 ;;; Code:
 
+;; MULE-VISCII
+
+(let ((i #xA0)
+      v)
+  (while (<= i #xFF)
+    (put-char-attribute (decode-builtin-char 'latin-viscii-lower i)
+                       'latin-viscii i)
+    (setq i (1+ i))))
+
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA1)
+                   'latin-viscii #x81)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA2)
+                   'latin-viscii #x82)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA3)
+                   'latin-viscii #x83)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA4)
+                   'latin-viscii #x84)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA5)
+                   'latin-viscii #x85)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA6)
+                   'latin-viscii #x86)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA7)
+                   'latin-viscii #x87)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA8)
+                   'latin-viscii #x88)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xA9)
+                   'latin-viscii #x89)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xAA)
+                   'latin-viscii #x8A)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xAB)
+                   'latin-viscii #x8B)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xAC)
+                   'latin-viscii #x8C)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xAD)
+                   'latin-viscii #x8D)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xAE)
+                   'latin-viscii #x8E)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xAF)
+                   'latin-viscii #x8F)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB0)
+                   'latin-viscii #x90)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB1)
+                   'latin-viscii #x91)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB2)
+                   'latin-viscii #x92)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB5)
+                   'latin-viscii #x93)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB6)
+                   'latin-viscii #x96)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB7)
+                   'latin-viscii #x97)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xB8)
+                   'latin-viscii #x98)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xBD)
+                   'latin-viscii #xB4)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xBE)
+                   'latin-viscii #x95)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xC6)
+                   'latin-viscii #x02)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xC7)
+                   'latin-viscii #x05)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xCF)
+                   'latin-viscii #x9F)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xD1)
+                   'latin-viscii #xBA)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xD5)
+                   'latin-viscii #x80)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xD6)
+                   'latin-viscii #x14)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xD7)
+                   'latin-viscii #xBB)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xD8)
+                   'latin-viscii #xBC)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xDB)
+                   'latin-viscii #x19)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xDC)
+                   'latin-viscii #x1E)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xDE)
+                   'latin-viscii #xB3)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xDF)
+                   'latin-viscii #xBF)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE0)
+                   'latin-viscii #xC0)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE1)
+                   'latin-viscii #xC1)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE2)
+                   'latin-viscii #xC2)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE3)
+                   'latin-viscii #xC3)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE4)
+                   'latin-viscii #xC4)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE5)
+                   'latin-viscii #xC5)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE6)
+                   'latin-viscii #xFF)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE7)
+                   'latin-viscii #x06)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE8)
+                   'latin-viscii #xC8)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xE9)
+                   'latin-viscii #xC9)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xEA)
+                   'latin-viscii #xCA)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xEB)
+                   'latin-viscii #xCB)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xEC)
+                   'latin-viscii #xCC)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xED)
+                   'latin-viscii #xCD)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xEE)
+                   'latin-viscii #xCE)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xEF)
+                   'latin-viscii #x9B)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF0)
+                   'latin-viscii #xD0)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF1)
+                   'latin-viscii #xB9)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF2)
+                   'latin-viscii #xD2)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF3)
+                   'latin-viscii #xD3)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF4)
+                   'latin-viscii #xD4)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF5)
+                   'latin-viscii #xA0)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF6)
+                   'latin-viscii #x99)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF7)
+                   'latin-viscii #x9A)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF8)
+                   'latin-viscii #x9E)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xF9)
+                   'latin-viscii #xD9)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xFA)
+                   'latin-viscii #xDA)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xFB)
+                   'latin-viscii #x9D)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xFC)
+                   'latin-viscii #x9C)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xFD)
+                   'latin-viscii #xDD)
+(put-char-attribute (decode-builtin-char 'latin-viscii-upper #xFE)
+                   'latin-viscii #x94)
+
+
+;; GT 2000
+
 (let ((buf (find-file-noselect "../etc/GT-RS.txt")))
   (with-current-buffer buf
     (goto-char (point-min))