Mercurial > emacs

comparison lisp/language/chinese.el @ 20158:36eb3e583396

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Give proper SAFE-CHARSET argument in each call of make-coding-system. (euc-cn): Define it an alias of coding-system chinese-iso-8bit.
author Kenichi Handa <handa@m17n.org>
date Thu, 23 Oct 1997 12:03:41 +0000
parents b68cac3f8e3a
children 5d6f4b0c2763
comparison
equal deleted inserted replaced
20157:2e075af4e648 20158:36eb3e583396
40 (nil chinese-gb2312 chinese-cns11643-1) 40 (nil chinese-gb2312 chinese-cns11643-1)
41 (nil chinese-cns11643-2) 41 (nil chinese-cns11643-2)
42 (nil chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5 42 (nil chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5
43 chinese-cns11643-6 chinese-cns11643-7) 43 chinese-cns11643-6 chinese-cns11643-7)
44 nil ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil 44 nil ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil
45 init-bol)) 45 init-bol)
46 '(ascii chinese-gb2312 chinese-cns11643-1 chinese-cns11643-2
47 chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5
48 chinese-cns11643-6 chinese-cns11643-7))
46 49
47 (define-coding-system-alias 'iso-2022-cn 'chinese-iso-7bit) 50 (define-coding-system-alias 'iso-2022-cn 'chinese-iso-7bit)
48 (define-coding-system-alias 'iso-2022-cn-ext 'chinese-iso-7bit) 51 (define-coding-system-alias 'iso-2022-cn-ext 'chinese-iso-7bit)
49 52
50 (define-prefix-command 'describe-chinese-environment-map) 53 (define-prefix-command 'describe-chinese-environment-map)
63 66
64 (make-coding-system 67 (make-coding-system
65 'chinese-iso-8bit 2 ?c 68 'chinese-iso-8bit 2 ?c
66 "ISO 2022 based EUC encoding for Chinese GB2312 (MIME:CN-GB-2312)" 69 "ISO 2022 based EUC encoding for Chinese GB2312 (MIME:CN-GB-2312)"
67 '((ascii t) chinese-gb2312 chinese-sisheng nil 70 '((ascii t) chinese-gb2312 chinese-sisheng nil
68 nil ascii-eol ascii-cntl nil nil single-shift nil)) 71 nil ascii-eol ascii-cntl nil nil single-shift nil)
72 '(ascii chinese-gb2312 chinese-sisheng))
69 73
70 (define-coding-system-alias 'cn-gb-2312 'chinese-iso-8bit) 74 (define-coding-system-alias 'cn-gb-2312 'chinese-iso-8bit)
71 (define-coding-system-alias 'euc-china 'chinese-iso-8bit) 75 (define-coding-system-alias 'euc-china 'chinese-iso-8bit)
76 (define-coding-system-alias 'euc-cn 'chinese-iso-8bit)
72 77
73 (make-coding-system 78 (make-coding-system
74 'chinese-hz 0 ?z 79 'chinese-hz 0 ?z
75 "Hz/ZW 7-bit encoding for Chinese GB2312 (MIME:HZ-GB-2312)" 80 "Hz/ZW 7-bit encoding for Chinese GB2312 (MIME:HZ-GB-2312)"
76 nil) 81 nil
82 '(ascii chinese-gb2312))
77 (coding-system-put 'chinese-hz 'post-read-conversion 'post-read-decode-hz) 83 (coding-system-put 'chinese-hz 'post-read-conversion 'post-read-decode-hz)
78 (coding-system-put 'chinese-hz 'pre-write-conversion 'pre-write-encode-hz) 84 (coding-system-put 'chinese-hz 'pre-write-conversion 'pre-write-encode-hz)
79 85
80 (define-coding-system-alias 'hz-gb-2312 'chinese-hz) 86 (define-coding-system-alias 'hz-gb-2312 'chinese-hz)
81 (define-coding-system-alias 'hz 'chinese-hz) 87 (define-coding-system-alias 'hz 'chinese-hz)
114 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 120 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
115 ;; Chinese BIG5 (traditional) 121 ;; Chinese BIG5 (traditional)
116 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 122 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
117 123
118 (make-coding-system 124 (make-coding-system
119 'chinese-big5 3 ?B "BIG5 8-bit encoding for Chinese (MIME:CN-BIG5)") 125 'chinese-big5 3 ?B "BIG5 8-bit encoding for Chinese (MIME:CN-BIG5)"
126 nil '(chinese-big5-1 chinese-big5-2))
120 127
121 (define-coding-system-alias 'big5 'chinese-big5) 128 (define-coding-system-alias 'big5 'chinese-big5)
122 (define-coding-system-alias 'cn-big5 'chinese-big5) 129 (define-coding-system-alias 'cn-big5 'chinese-big5)
123 130
124 ;; Big5 font requires special encoding. 131 ;; Big5 font requires special encoding.