procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add INIT-BOL to coding system iso-2022-cn.

Browse source 
Remove prefix "coding-system-" from coding system symbol names.
This commit is contained in:
Kenichi Handa 1997-02-26 12:24:02 +00:00
parent d92d012801
commit f3f181230a
1 changed files with 55 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

91
lisp/language/chinese.el
View file

@ -34,31 +34,44 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(make-coding-system (make-coding-system
'coding-system-iso-2022-cn 2 ?C 'iso-2022-cn 2 ?C
"Coding system ISO-2022-CN for Chinese (GB and CNS character sets)." "Coding system ISO-2022-CN for Chinese (GB and CNS character sets)."
'(ascii '(ascii
(nil chinese-gb2312 chinese-cns11643-1) (nil chinese-gb2312 chinese-cns11643-1)
(nil chinese-cns11643-2) (nil chinese-cns11643-2)
(nil chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5 (nil chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5
chinese-cns11643-6 chinese-cns11643-7) chinese-cns11643-6 chinese-cns11643-7)
nil ascii-eol ascii-cntl seven locking-shift single-shift)) nil ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil
init-bol))
(define-coding-system-alias 'iso-2022-cn 'iso-2022-cn-ext)
(set-language-info
"Chinese" 'documentation
"Emacs provides three kinds of Chinese support: Chinese-GB,
Chinese-BIG5, and Chinese-CNS. Please specify one of them to get more
information.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Chinese GB2312 (simplified) ;;; Chinese GB2312 (simplified)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(make-coding-system (make-coding-system
'coding-system-euc-china 2 ?C 'cn-gb-2312 2 ?C
"Coding-system of Chinese EUC (so called GB Encoding)." "Coding-system of Chinese EUC (so called GB Encoding)."
'((ascii t) chinese-gb2312 chinese-sisheng nil '((ascii t) chinese-gb2312 chinese-sisheng nil
nil ascii-eol ascii-cntl nil nil single-shift nil)) nil ascii-eol ascii-cntl nil nil single-shift nil))
(define-coding-system-alias 'cn-gb-2312 'euc-china)
(make-coding-system (make-coding-system
'coding-system-hz 0 ?z 'hz-gb-2312 0 ?z
"Codins-system of Hz/ZW used for Chinese (GB)." "Codins-system of Hz/ZW used for Chinese (GB)."
nil) nil)
(put 'coding-system-hz 'post-read-conversion 'post-read-decode-hz) (put 'hz-gb-2312 'post-read-conversion 'post-read-decode-hz)
(put 'coding-system-hz 'pre-write-conversion 'pre-write-encode-hz) (put 'hz-gb-2312 'pre-write-conversion 'pre-write-encode-hz)
(define-coding-system-alias 'hz-gb-2312 'hz)
(defun post-read-decode-hz (len) (defun post-read-decode-hz (len)
(let ((pos (point))) (let ((pos (point)))
@ -74,6 +87,8 @@
(encode-hz-region 1 (point-max)) (encode-hz-region 1 (point-max))
nil)) nil))
(register-input-method
"Chinese-GB" '("cxterm-gb" encoded-kbd-select-terminal cn-gb-2312))
(register-input-method (register-input-method
"Chinese-GB" '("quail-ccdospy" quail-use-package "quail/ccdospy")) "Chinese-GB" '("quail-ccdospy" quail-use-package "quail/ccdospy"))
(register-input-method (register-input-method
@ -94,8 +109,9 @@
(defun setup-chinese-gb-environment () (defun setup-chinese-gb-environment ()
(setq primary-language "Chinese-GB") (setq primary-language "Chinese-GB")
(setq coding-category-iso-8-2 'coding-system-euc-china) (setq coding-category-iso-8-2 'cn-gb-2312)
(setq coding-category-iso-else 'coding-system-iso-2022-cn) (setq coding-category-iso-else 'iso-2022-cn)
(setq coding-category-big5 'cn-big5)
(set-coding-priority (set-coding-priority
'(coding-category-iso-7 '(coding-category-iso-7
@ -106,34 +122,31 @@
coding-category-internal coding-category-internal
)) ))
(setq-default buffer-file-coding-system 'coding-system-euc-china) (setq-default buffer-file-coding-system 'cn-gb-2312)
(set-terminal-coding-system 'coding-system-euc-china) (set-terminal-coding-system 'cn-gb-2312)
(set-keyboard-coding-system 'coding-system-euc-china) (set-keyboard-coding-system 'cn-gb-2312)
(setq default-input-method '("Chinese-GB" . "quail-py")) (setq default-input-method '("Chinese-GB" . "quail-py"))
) )
(set-language-info-alist (set-language-info-alist
"Chinese" '((documentation . "Chinese-GB" '((documentation . t)
"Emacs provides three kinds of Chinese support: Chinese-GB, (setup-function . setup-chinese-gb-environment)
Chinese-BIG5, and Chinese-CNS. Please specify one of them to get more (charset . (chinese-gb2312 chinese-sisheng))
information.") (coding-system . (cn-gb-2312 hz-gb-2312 iso-2022-cn))
(setup-function . setup-chinese-gb-environment) (documentation . t)
(charset . (chinese-gb2312 chinese-sisheng)) (sample-text . "Chinese ($AVPND(B,$AFUM(;0(B,$A::So(B) $ADc:C(B")))
(coding-system . (coding-system-euc-china
coding-system-hz
coding-system-iso-2022-cn))
(documentation . t)
(sample-text . "Chinese ($AVPND(B,$AFUM(;0(B,$A::So(B) $ADc:C(B")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Chinese BIG5 (traditional) ;; Chinese BIG5 (traditional)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(make-coding-system (make-coding-system
'coding-system-big5 3 ?B 'big5 3 ?B
"Coding-system of BIG5.") "Coding-system of BIG5.")
(define-coding-system-alias 'big5 'cn-big5)
;; Big5 font requires special encoding. ;; Big5 font requires special encoding.
(define-ccl-program ccl-encode-big5-font (define-ccl-program ccl-encode-big5-font
`(0 `(0
@ -152,6 +165,8 @@ information.")
(setq font-ccl-encoder-alist (setq font-ccl-encoder-alist
(cons (cons "big5" ccl-encode-big5-font) font-ccl-encoder-alist)) (cons (cons "big5" ccl-encode-big5-font) font-ccl-encoder-alist))
(register-input-method
"Chinese-BIG5" '("cxterm-big5" encoded-kbd-select-terminal big5))
(register-input-method (register-input-method
"Chinese-BIG5" '("quail-qj-b5" quail-use-package "quail/qj-b5")) "Chinese-BIG5" '("quail-qj-b5" quail-use-package "quail/qj-b5"))
(register-input-method (register-input-method
@ -176,17 +191,19 @@ information.")
(defun setup-chinese-big5-environment () (defun setup-chinese-big5-environment ()
(setq primary-language "Chinese-BIG5") (setq primary-language "Chinese-BIG5")
(setq coding-category-big5 'coding-system-big5) (setq coding-category-big5 'cn-big5)
(setq coding-category-iso-else 'coding-system-iso-2022-cn) (setq coding-category-iso-else 'iso-2022-cn)
(setq coding-category-iso-8-2 'cn-gb-2312)
(set-coding-priority (set-coding-priority
'(coding-category-iso-7 '(coding-category-iso-7
coding-category-iso-else coding-category-iso-else
coding-category-big5)) coding-category-big5
coding-category-iso-8-2))
(setq-default buffer-file-coding-system 'coding-system-big5) (setq-default buffer-file-coding-system 'cn-big5)
(set-terminal-coding-system 'coding-system-big5) (set-terminal-coding-system 'cn-big5)
(set-keyboard-coding-system 'coding-system-big5) (set-keyboard-coding-system 'cn-big5)
(setq default-input-method '("Chinese-BIG5" . "quail-py-b5")) (setq default-input-method '("Chinese-BIG5" . "quail-py-b5"))
) )
@ -194,8 +211,7 @@ information.")
(set-language-info-alist (set-language-info-alist
"Chinese-BIG5" '((setup-function . setup-chinese-big5-environment) "Chinese-BIG5" '((setup-function . setup-chinese-big5-environment)
(charset . (chinese-big5-1 chinese-big5-2)) (charset . (chinese-big5-1 chinese-big5-2))
(coding-system . (coding-system-big5 (coding-system . (cn-big5 iso-2022-cn))
coding-system-iso-2022-cn))
(documentation . t) (documentation . t)
(sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B) $(0*/=((B, $(0+$)p(B"))) (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B) $(0*/=((B, $(0+$)p(B")))
@ -211,16 +227,19 @@ information.")
(defun setup-chinese-cns-environment () (defun setup-chinese-cns-environment ()
(setq primary-language "Chinese-CNS") (setq primary-language "Chinese-CNS")
(setq coding-category-iso-else 'coding-system-iso-2022-cn) (setq coding-category-iso-else 'iso-2022-cn)
(setq coding-category-big5 'cn-big5)
(setq coding-category-iso-8-2 'cn-gb-2312)
(set-coding-priority (set-coding-priority
'(coding-category-iso-7 '(coding-category-iso-7
coding-category-iso-else coding-category-iso-else
coding-category-iso-8-2
coding-category-big5)) coding-category-big5))
(setq-default buffer-file-coding-system 'coding-system-iso-2022-7) (setq-default buffer-file-coding-system 'iso-2022-cn)
(set-terminal-coding-system 'coding-system-iso-2022-7) (set-terminal-coding-system 'iso-2022-cn)
(set-keyboard-coding-system 'coding-system-iso-2022-7) (set-keyboard-coding-system 'iso-2022-cn)
(setq default-input-method '("Chinese-CNS" . "quail-py-cns")) (setq default-input-method '("Chinese-CNS" . "quail-py-cns"))
) )
@ -231,7 +250,7 @@ information.")
chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-3 chinese-cns11643-4
chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-5 chinese-cns11643-6
chinese-cns11643-7)) chinese-cns11643-7))
(coding-system . (coding-system-iso-2022-cn)) (coding-system . (iso-2022-cn))
(documentation . t))) (documentation . t)))
;;; chinese.el ends here ;;; chinese.el ends here