diff options
author | Kenichi Handa <handa@m17n.org> | 1998-01-22 01:42:20 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1998-01-22 01:42:20 +0000 |
commit | b3f7b499690937d6a80a0c35c301070c2c2e1fb7 (patch) | |
tree | c3f4da8497b948a58a05285046e046520cde99fb /lisp/international | |
parent | 9279dc2c76605433e06c196fb41d203beea6ee12 (diff) | |
download | emacs-b3f7b499690937d6a80a0c35c301070c2c2e1fb7.tar.gz |
Put `prefered-coding-system'
property to each character set.
Diffstat (limited to 'lisp/international')
-rw-r--r-- | lisp/international/characters.el | 59 |
1 files changed, 58 insertions, 1 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index ab6bfec5f58..5f30a79c87e 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -80,7 +80,8 @@ (define-category ?| "While filling, we can break a line at this character.") ;; For indentation calculation. -(define-category ?\ "This character counts as a space for indentation purposes.") +(define-category ? + "This character counts as a space for indentation purposes.") ;; Keep the followings for `kinsoku' processing. See comments in ;; kinsoku.el. @@ -543,3 +544,59 @@ (?C . ?A) ; Chinese - Alpha numeric (?C . ?K) ; Chinese - Katakana )) + + +;; For each character set, put the information of the most proper +;; coding system to encode it by `prefered-coding-system' property. + +(let ((l '((latin-iso8859-1 . iso-latin-1) + (latin-iso8859-2 . iso-latin-2) + (latin-iso8859-3 . iso-latin-3) + (latin-iso8859-4 . iso-latin-4) + (thai-tis620 . thai-tis620) + (greek-iso8859-7 . greek-iso-8bit) + (arabic-iso8859-6 . iso-2022-7bit) + (hebrew-iso8859-8 . hebrew-iso-8bit) + (katakana-jisx0201 . japanese-shift-jis) + (latin-jisx0201 . japanese-shift-jis) + (cyrillic-iso8859-5 . cyrillic-iso-8bit) + (latin-iso8859-9 . iso-latin-5) + (japanese-jisx0208-1978 . iso-2022-jp) + (chinese-gb2312 . cn-gb-2312) + (japanese-jisx0208 . iso-2022-jp) + (korean-ksc5601 . iso-2022-kr) + (japanese-jisx0212 . iso-2022-jp) + (chinese-cns11643-1 . iso-2022-cn) + (chinese-cns11643-2 . iso-2022-cn) + (chinese-big5-1 . chinese-big5) + (chinese-big5-2 . chinese-big5) + (chinese-sisheng . iso-2022-7bit) + (ipa . iso-2022-7bit) + (vietnamese-viscii-lower . vietnamese-viscii) + (vietnamese-viscii-upper . vietnamese-viscii) + (arabic-digit . iso-2022-7bit) + (arabic-1-column . iso-2022-7bit) + (ascii-right-to-left . iso-2022-7bit) + (lao . lao) + (arabic-2-column . iso-2022-7bit) + (indian-is13194 . devanagari) + (indian-1-column . devanagari) + (tibetan-1-column . tibetan) + (ethiopic . iso-2022-jp) + (chinese-cns11643-3 . iso-2022-cn) + (chinese-cns11643-4 . iso-2022-cn) + (chinese-cns11643-5 . iso-2022-cn) + (chinese-cns11643-6 . iso-2022-cn) + (chinese-cns11643-7 . iso-2022-cn) + (indian-2-column . devanagari) + (tibetan . tibetan)))) + (while l + (put-charset-property (car (car l)) 'prefered-coding-system (cdr (car l))) + (setq l (cdr l)))) + + +;;; Local Variables: +;;; coding: iso-2022-7bit +;;; End: + +;;; end of characters.el |