Mercurial > hg > xemacs-beta

comparison lisp/mule/japanese-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 0d2f883870bc
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
27 ;;; JAPANESE 27 ;;; JAPANESE
28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
29 29
30 ;;; Syntax of Japanese characters. 30 ;;; Syntax of Japanese characters.
31 (modify-syntax-entry 'japanese-jisx0201-kana "w") 31 (modify-syntax-entry 'katakana-jisx0201 "w")
32 (modify-syntax-entry 'japanese-jisx0212 "w") 32 (modify-syntax-entry 'japanese-jisx0212 "w")
33 33
34 (modify-syntax-entry 'japanese-jisx0208 "w") 34 (modify-syntax-entry 'japanese-jisx0208 "w")
35 (loop for row in '(33 34 40) 35 (loop for row in '(33 34 40)
36 do (modify-syntax-entry `[japanese-jisx0208 ,row] "_")) 36 do (modify-syntax-entry `[japanese-jisx0208 ,row] "_"))
125 'iso-2022-jp 'iso2022 125 'iso-2022-jp 'iso2022
126 "Coding-system used for communication with mail and news in Japan." 126 "Coding-system used for communication with mail and news in Japan."
127 '(charset-g0 ascii 127 '(charset-g0 ascii
128 short t 128 short t
129 seven t 129 seven t
130 input-charset-conversion ((japanese-jisx0201-roman ascii) 130 input-charset-conversion ((latin-jisx0201 ascii)
131 (japanese-jisx0208-1978 japanese-jisx0208)) 131 (japanese-jisx0208-1978 japanese-jisx0208))
132 mnemonic "Mail/Ja" 132 mnemonic "Mail/Ja"
133 )) 133 ))
134 134
135 (copy-coding-system 'iso-2022-jp 'junet) 135 (copy-coding-system 'iso-2022-jp 'junet)
138 'oldjis 'iso2022 138 'oldjis 'iso2022
139 "Coding-system used for old JIS terminal." 139 "Coding-system used for old JIS terminal."
140 '(charset-g0 ascii 140 '(charset-g0 ascii
141 short t 141 short t
142 seven t 142 seven t
143 output-charset-conversion ((ascii japanese-jisx0201-roman) 143 output-charset-conversion ((ascii latin-jisx0201)
144 (japanese-jisx0208 japanese-jisx0208-1978)) 144 (japanese-jisx0208 japanese-jisx0208-1978))
145 mnemonic "Mail/Ja-old" 145 mnemonic "Mail/Ja-old"
146 )) 146 ))
147 147
148 (make-coding-system 148 (make-coding-system
149 'euc-japan 'iso2022 149 'euc-japan 'iso2022
150 "Coding-system of Japanese EUC (Extended Unix Code)." 150 "Coding-system of Japanese EUC (Extended Unix Code)."
151 '(charset-g0 ascii 151 '(charset-g0 ascii
152 charset-g1 japanese-jisx0208 152 charset-g1 japanese-jisx0208
153 charset-g2 japanese-jisx0201-kana 153 charset-g2 katakana-jisx0201
154 charset-g3 japanese-jisx0212 154 charset-g3 japanese-jisx0212
155 short t 155 short t
156 mnemonic "EUC/Ja" 156 mnemonic "EUC/Ja"
157 )) 157 ))
158 158
159 (define-language-environment 'japanese 159 (define-language-environment 'japanese
160 "Japanese (includes JIS and EUC)" 160 "Japanese (includes JIS and EUC)"
161 (lambda () 161 (lambda ()
162 (set-coding-category-system 'iso-7 'iso-2022-jp) 162 (set-coding-category-system 'iso-7 'iso-2022-jp)
163 (set-coding-category-system 'iso-8-2 'euc-japan) 163 (set-coding-category-system 'iso-8-2 'euc-japan)
164 (set-coding-priority-list '(iso-7 iso-8-2 no-conversion)) 164 (set-coding-priority-list '(iso-7 iso-8-2 shift-jis no-conversion))
165 ;;'(iso-8-2 iso-8-designate iso-8-1 shift-jis big5) 165 ;;'(iso-8-2 iso-8-designate iso-8-1 shift-jis big5)
166 166
167 ;;(when (featurep 'egg) 167 ;;(when (featurep 'egg)
168 ;; (setq-default its:*current-map* (its:get-mode-map "roma-kana"))) 168 ;; (setq-default its:*current-map* (its:get-mode-map "roma-kana")))
169 169