Mercurial > hg > xemacs-beta

comparison lisp/mule/chinese-hooks.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children 821dec489c24
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
27 ;;; CHINESE 27 ;;; CHINESE
28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
29 29
30 ;; Syntax of Chinese characters. 30 ;; Syntax of Chinese characters.
31 (loop for row in '(33 34 41) do (modify-syntax-entry `[chinese-gb ,row] ".")) 31 (modify-syntax-entry 'chinese-gb2312 "w")
32 (loop for row from 35 to 40 do (modify-syntax-entry `[chinese-gb ,row] "w")) 32 (loop for row in '(33 34 41)
33 (loop for row from 42 to 126 do (modify-syntax-entry `[chinese-gb ,row] "w")) 33 do (modify-syntax-entry `[chinese-gb2312 ,row] "."))
34 ;;(loop for row from 35 to 40
35 ;; do (modify-syntax-entry `[chinese-gb2312 ,row] "w"))
36 ;;(loop for row from 42 to 126
37 ;; do (modify-syntax-entry `[chinese-gb2312 ,row] "w"))
34 38
35 (modify-syntax-entry 'chinese-cns11643-1 "w") 39 (modify-syntax-entry 'chinese-cns11643-1 "w")
36 (modify-syntax-entry 'chinese-cns11643-2 "w") 40 (modify-syntax-entry 'chinese-cns11643-2 "w")
37 (modify-syntax-entry 'chinese-big5-1 "w") 41 (modify-syntax-entry 'chinese-big5-1 "w")
38 (modify-syntax-entry 'chinese-big5-2 "w") 42 (modify-syntax-entry 'chinese-big5-2 "w")
75 79
76 (make-coding-system 80 (make-coding-system
77 'euc-china 'iso2022 81 'euc-china 'iso2022
78 "Coding-system of Chinese EUC (Extended Unix Code)." 82 "Coding-system of Chinese EUC (Extended Unix Code)."
79 '(charset-g0 ascii 83 '(charset-g0 ascii
80 charset-g1 chinese-gb 84 charset-g1 chinese-gb2312
81 charset-g2 sisheng 85 charset-g2 sisheng
82 charset-g3 t 86 charset-g3 t
83 mnemonic "EUC/China" 87 mnemonic "EUC/China"
84 )) 88 ))
85 89
97 '(mnemonic "Big5")) 101 '(mnemonic "Big5"))
98 102
99 (copy-coding-system 'big5 'big5-eten) 103 (copy-coding-system 'big5 'big5-eten)
100 104
101 ;; If you prefer QUAIL to EGG, please modify below as you wish. 105 ;; If you prefer QUAIL to EGG, please modify below as you wish.
102 (when (and (featurep 'egg) (featurep 'wnn)) 106 ;;(when (and (featurep 'egg) (featurep 'wnn))
103 (setq wnn-server-type 'cserver) 107 ;; (setq wnn-server-type 'cserver)
104 (load "its/pinyin") 108 ;; (load "its/pinyin")
105 (setq its:*standard-modes* 109 ;; (setq its:*standard-modes*
106 (cons (its:get-mode-map "PinYin") its:*standard-modes*))) 110 ;; (cons (its:get-mode-map "PinYin") its:*standard-modes*)))
107 111
108 ;; For QUAIL 112 ;; For QUAIL
109 ;; Please add your own quail package if any. 113 ;; Please add your own quail package if any.
110 114
111 ;; For GB character input 115 ;; For GB character input
112 (add-hook 'quail-package-alist '("py" "quail/py")) 116 ;;(add-hook 'quail-package-alist '("py" "quail/py"))
113 (add-hook 'quail-package-alist '("qj" "quail/qj")) 117 ;;(add-hook 'quail-package-alist '("qj" "quail/qj"))
114 (add-hook 'quail-package-alist '("punct" "quail/punct")) 118 ;;(add-hook 'quail-package-alist '("punct" "quail/punct"))
115 (add-hook 'quail-package-alist '("sw" "quail/sw")) 119 ;;(add-hook 'quail-package-alist '("sw" "quail/sw"))
116 (add-hook 'quail-package-alist '("tonepy" "quail/tonepy")) 120 ;;(add-hook 'quail-package-alist '("tonepy" "quail/tonepy"))
117 (add-hook 'quail-package-alist '("ccdospy" "quail/ccdospy")) 121 ;;(add-hook 'quail-package-alist '("ccdospy" "quail/ccdospy"))
118 (add-hook 'quail-package-alist '("ctlau" "quail/ctlau")) 122 ;;(add-hook 'quail-package-alist '("ctlau" "quail/ctlau"))
119 123
120 ;; For BIG5 character input 124 ;; For BIG5 character input
121 (add-hook 'quail-package-alist '("py-b5" "quail/py-b5")) 125 ;;(add-hook 'quail-package-alist '("py-b5" "quail/py-b5"))
122 (add-hook 'quail-package-alist '("qj-b5" "quail/qj-b5")) 126 ;;(add-hook 'quail-package-alist '("qj-b5" "quail/qj-b5"))
123 (add-hook 'quail-package-alist '("punct-b5" "quail/punct-b5")) 127 ;;(add-hook 'quail-package-alist '("punct-b5" "quail/punct-b5"))
124 (add-hook 'quail-package-alist '("ctlaub" "quail/ctlaub")) 128 ;;(add-hook 'quail-package-alist '("ctlaub" "quail/ctlaub"))
125 (add-hook 'quail-package-alist '("zozy" "quail/zozy")) 129 ;;(add-hook 'quail-package-alist '("zozy" "quail/zozy"))
126 (add-hook 'quail-package-alist '("etzy" "quail/etzy")) 130 ;;(add-hook 'quail-package-alist '("etzy" "quail/etzy"))
127 131
128 ;; For Big5 handling 132 ;; For Big5 handling
129 133
130 (define-ccl-program ccl-internal-to-big5-1 134 (define-ccl-program ccl-internal-to-big5-1
131 '(((r1 = ((((r0 - #x21) * 94) + r1) - #x21)) 135 '(((r1 = ((((r0 - #x21) * 94) + r1) - #x21))
170 (set-coding-category-system 'iso-8-2 'euc-china) 174 (set-coding-category-system 'iso-8-2 'euc-china)
171 (set-coding-priority-list '(iso-8-2 big5 iso-8-designate)) 175 (set-coding-priority-list '(iso-8-2 big5 iso-8-designate))
172 (set-default-file-coding-system 'euc-china) ; GB encoding 176 (set-default-file-coding-system 'euc-china) ; GB encoding
173 (setq terminal-coding-system 'euc-china) 177 (setq terminal-coding-system 'euc-china)
174 (setq keyboard-coding-system 'euc-china) 178 (setq keyboard-coding-system 'euc-china)
175 (when (featurep 'egg) 179 ;; (when (featurep 'egg)
176 (setq-default its:*current-map* (its:get-mode-map "PinYin"))) 180 ;; (setq-default its:*current-map* (its:get-mode-map "PinYin")))
177 (setq-default quail-current-package (assoc "py" quail-package-alist)))) 181 ;; (setq-default quail-current-package (assoc "py" quail-package-alist))))
182 ))
178 183
179 (set-coding-category-system 'big5 'big5) 184 (set-coding-category-system 'big5 'big5)