X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fisolated-char.el;h=dd15c89cf5972e0d782d3252bd2a1796027d0333;hb=9809d9c19e1866d037cebe4e5b4e24a6cb1fa360;hp=c177f35974dc626896eb3e45f639c9f7c43519d8;hpb=4756b58699f39d477ca81048ae0d1dbdb2e4b186;p=chise%2Fxemacs-chise.git diff --git a/lisp/utf-2000/isolated-char.el b/lisp/utf-2000/isolated-char.el index c177f35..dd15c89 100644 --- 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))