Mercurial > emacs

comparison lisp/international/mule-conf.el @ 88760:73d3c1e66c00

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(japanese-jisx0213-1) (japanese-jisx0213-2): Add unify-map.
author Dave Love <fx@gnu.org>
date Wed, 12 Jun 2002 11:43:30 +0000
parents 809b6bfe4dfa
children 805a3bb7daf4
comparison
equal deleted inserted replaced
88759:60b73dbd836a 88760:73d3c1e66c00
389 (define-charset 'japanese-jisx0213-1 389 (define-charset 'japanese-jisx0213-1
390 "JISX0213 Plane 1 (Japanese)" 390 "JISX0213 Plane 1 (Japanese)"
391 :short-name "JISX0213-1" 391 :short-name "JISX0213-1"
392 :iso-final-char ?O 392 :iso-final-char ?O
393 :emacs-mule-id 151 393 :emacs-mule-id 151
394 :unify-map "jisx0213-1"
394 :code-space [33 126 33 126] 395 :code-space [33 126 33 126]
395 :code-offset #x14C000) 396 :code-offset #x14C000)
396 397
397 (define-charset 'japanese-jisx0213-2 398 (define-charset 'japanese-jisx0213-2
398 "JISX0213 Plane 2 (Japanese)" 399 "JISX0213 Plane 2 (Japanese)"
399 :short-name "JISX0213-2" 400 :short-name "JISX0213-2"
400 :iso-final-char ?P 401 :iso-final-char ?P
401 :emacs-mule-id 254 402 :emacs-mule-id 254
403 :unify-map "jisx0213-2"
402 :code-space [33 126 33 126] 404 :code-space [33 126 33 126]
403 :code-offset #x150000) 405 :code-offset #x150000)
404 406
405 (define-charset 'korean-ksc5601 407 (define-charset 'korean-ksc5601
406 "KSC5601 Korean Hangul and Hanja: ISO-IR-149" 408 "KSC5601 Korean Hangul and Hanja: ISO-IR-149"
982 (unify-charset 'big5) 984 (unify-charset 'big5)
983 (unify-charset 'chinese-big5-1) 985 (unify-charset 'chinese-big5-1)
984 (unify-charset 'chinese-big5-2) 986 (unify-charset 'chinese-big5-2)
985 (unify-charset 'vietnamese-viscii-lower) 987 (unify-charset 'vietnamese-viscii-lower)
986 (unify-charset 'vietnamese-viscii-upper) 988 (unify-charset 'vietnamese-viscii-upper)
987 ;; (unify-charset 'chinese-sisheng) 989 ;; Fixme: unifying sucks in the charset tables, which may be large.
990 ;; (Can we avoid that and do it anyhow?)
991 (unify-charset 'chinese-sisheng)
992 (unify-charset 'indian-is13194)
988 ;; (unify-charset 'ipa) 993 ;; (unify-charset 'ipa)
989 ;; (unify-charset 'indian-is13194)
990 ;; (unify-charset 'tibetan) 994 ;; (unify-charset 'tibetan)
991 ;; (unify-charset 'ethiopic) 995 ;; (unify-charset 'ethiopic)
992 ;; (unify-charset 'japanese-jisx0208-1978) 996 ;; (unify-charset 'japanese-jisx0208-1978)
993 ;; (unify-charset 'japanese-jisx0208) 997 ;; (unify-charset 'japanese-jisx0208)
994 ;; (unify-charset 'japanese-jisx0212) 998 ;; (unify-charset 'japanese-jisx0212)
999 ;; (unify-charset 'japanese-jisx0213-1)
1000 ;; (unify-charset 'japanese-jisx0213-2)
995 1001
996 1002
997 ;; These are tables for translating characters on decoding and 1003 ;; These are tables for translating characters on decoding and
998 ;; encoding. 1004 ;; encoding.
1005 ;; Fixme: these aren't used now -- should they be?
999 (setq standard-translation-table-for-decode nil) 1006 (setq standard-translation-table-for-decode nil)
1000 1007
1001 (setq standard-translation-table-for-encode nil) 1008 (setq standard-translation-table-for-encode nil)
1002 1009
1010 ;; Fixme: should this be retained? I guess it could be useful for
1011 ;; non-unified charsets.
1003 (defvar translation-table-for-input nil 1012 (defvar translation-table-for-input nil
1004 "If non-nil, a char table used to translate characters from input methods. 1013 "If non-nil, a char table used to translate characters from input methods.
1005 \(Currently only used by Quail.)") 1014 \(Currently only used by Quail.)")
1006 1015
1007 ;;; Make fundamental coding systems. 1016 ;;; Make fundamental coding systems.