Mercurial > hg > xemacs-beta

comparison lisp/mule/chinese-hooks.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents cca96a509cfe
children 3bb7ccffb0c0
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
111 111
112 ;; For QUAIL 112 ;; For QUAIL
113 ;; Please add your own quail package if any. 113 ;; Please add your own quail package if any.
114 114
115 ;; For GB character input 115 ;; For GB character input
116 ;;(add-hook 'quail-package-alist '("py" "quail/py")) 116 (add-hook 'quail-package-alist '("py" "quail-py"))
117 ;;(add-hook 'quail-package-alist '("qj" "quail/qj")) 117 (add-hook 'quail-package-alist '("qj" "quail-qj"))
118 ;;(add-hook 'quail-package-alist '("punct" "quail/punct")) 118 (add-hook 'quail-package-alist '("punct" "quail-punct"))
119 ;;(add-hook 'quail-package-alist '("sw" "quail/sw")) 119 (add-hook 'quail-package-alist '("sw" "quail-sw"))
120 ;;(add-hook 'quail-package-alist '("tonepy" "quail/tonepy")) 120 (add-hook 'quail-package-alist '("tonepy" "quail-tonepy"))
121 ;;(add-hook 'quail-package-alist '("ccdospy" "quail/ccdospy")) 121 (add-hook 'quail-package-alist '("ccdospy" "quail-ccdospy"))
122 ;;(add-hook 'quail-package-alist '("ctlau" "quail/ctlau")) 122 (add-hook 'quail-package-alist '("ctlau" "quail-ctlau"))
123 123
124 ;; For BIG5 character input 124 ;; For BIG5 character input
125 ;;(add-hook 'quail-package-alist '("py-b5" "quail/py-b5")) 125 ;;(add-hook 'quail-package-alist '("py-b5" "quail-py-b5"))
126 ;;(add-hook 'quail-package-alist '("qj-b5" "quail/qj-b5")) 126 ;;(add-hook 'quail-package-alist '("qj-b5" "quail-qj-b5"))
127 ;;(add-hook 'quail-package-alist '("punct-b5" "quail/punct-b5")) 127 ;;(add-hook 'quail-package-alist '("punct-b5" "quail-punct-b5"))
128 ;;(add-hook 'quail-package-alist '("ctlaub" "quail/ctlaub")) 128 ;;(add-hook 'quail-package-alist '("ctlaub" "quail-ctlaub"))
129 ;;(add-hook 'quail-package-alist '("zozy" "quail/zozy")) 129 ;;(add-hook 'quail-package-alist '("zozy" "quail-zozy"))
130 ;;(add-hook 'quail-package-alist '("etzy" "quail/etzy")) 130 ;;(add-hook 'quail-package-alist '("etzy" "quail-etzy"))
131 131
132 ;; For Big5 handling 132 ;; For Big5 handling
133 133
134 (define-ccl-program ccl-internal-to-big5-1 134 (define-ccl-program ccl-internal-to-big5-1
135 '(((r1 = ((((r0 - #x21) * 94) + r1) - #x21)) 135 '(((r1 = ((((r0 - #x21) * 94) + r1) - #x21))