/[emacs]/emacs/lisp/language/chinese.el
ViewVC logotype

Diff of /emacs/lisp/language/chinese.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25.2.6 by fx, Thu Jun 13 17:31:56 2002 UTC revision 1.25.2.7 by fx, Sun Oct 6 16:22:40 2002 UTC
# Line 187  accepts Big5 for input also (which is th Line 187  accepts Big5 for input also (which is th
187    
188  (set-language-info-alist  (set-language-info-alist
189   "Chinese-GBK" '((charset chinese-gbk)   "Chinese-GBK" '((charset chinese-gbk)
190                    (coding-system chinese-gbk)                   (coding-system chinese-gbk)
191                    (coding-priority gbk iso-2022-cn chinese-big5                   (coding-priority gbk iso-2022-cn chinese-big5
192                                     chinese-iso-8bit) ; fixme?                                    chinese-iso-8bit) ; fixme?
193                    (input-method . "chinese-py-punct") ; fixme?                   (input-method . "chinese-py-punct") ; fixme?
194                    (features china-util)                   (features china-util)
195                    (documentation . "Support for Chinese GBK character set."))                   (documentation . "Support for Chinese GBK character set."))
196   '("Chinese"))   '("Chinese"))
197    
198  ;; Fixme: add HKSCS, GB18030  ;;; Chinese GB18030
199    
200    (define-coding-system 'chinese-gb18030
201      "GB18030 encoding for Chinese (MIME:GB18030)."
202      :coding-type 'charset
203      :mnemonic ?c
204      :charset-list '(chinese-gb18030)
205      :mime-charset 'gb18030
206      )
207    (define-coding-system-alias 'gb18030 'chinese-gb18030)
208    
209    (set-language-info-alist
210     "Chinese-GB18030" '((charset chinese-gb18030)
211                         (coding-system chinese-gb18030)
212                         (coding-priority gb18030 gbk iso-2022-cn chinese-big5
213                                          chinese-iso-8bit) ; fixme?
214                         (input-method . "chinese-py-punct") ; fixme?
215                         (features china-util)
216                         (documentation
217                          . "Support for Chinese GB18030 character set."))
218     '("Chinese"))
219    
220    ;; Fixme: add HKSCS
221    
222  (provide 'chinese)  (provide 'chinese)
223    

Legend:
Removed from v.1.25.2.6  
changed lines
  Added in v.1.25.2.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26