Mercurial > hg > xemacs-beta

comparison lisp/mule/japanese.el @ 357:4711e16a8e49 r21-1-8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-8
author cvs
date Mon, 13 Aug 2007 10:57:04 +0200
parents 182f72e8cd0d
children
comparison
equal deleted inserted replaced
356:e85f639a32f3 357:4711e16a8e49
216 ;;(define-coding-system-alias 'euc-japan-1990 'euc-japan) 216 ;;(define-coding-system-alias 'euc-japan-1990 'euc-japan)
217 217
218 (copy-coding-system 'euc-jp 'euc-japan) ; only for w3 218 (copy-coding-system 'euc-jp 'euc-japan) ; only for w3
219 (copy-coding-system 'euc-jp 'japanese-euc) 219 (copy-coding-system 'euc-jp 'japanese-euc)
220 220
221 (defun setup-japanese-environment ()
222 "Setup multilingual environment (MULE) for Japanese."
223 (interactive)
224 (setup-english-environment)
225 (set-coding-category-system 'shift-jis 'shift_jis)
226 (set-coding-category-system 'iso-8-2 'euc-jp)
227 (set-coding-category-system 'iso-7 'iso-2022-jp)
228 (set-coding-category-system 'iso-8-designate 'iso-2022-8bit-ss2)
229
230 (set-coding-priority-list
231 '(iso-7
232 iso-8-2
233 shift-jis
234 iso-8-1
235 iso-lock-shift
236 iso-8-designate
237 no-conversion
238 big5))
239 (set-default-coding-systems 'iso-2022-jp))
240
221 (set-language-info-alist 241 (set-language-info-alist
222 "Japanese" '((setup-function . setup-japanese-environment-internal) 242 "Japanese" '((setup-function . setup-japanese-environment)
223 (tutorial . "TUTORIAL.ja") 243 (tutorial . "TUTORIAL.ja")
224 (charset . (japanese-jisx0208 japanese-jisx0208-1978 244 (charset . (japanese-jisx0208 japanese-jisx0208-1978
225 japanese-jisx0212 latin-jisx0201 245 japanese-jisx0212 latin-jisx0201
226 katakana-jisx0201)) 246 katakana-jisx0201))
227 (coding-system . (iso-2022-jp euc-jp 247 (coding-system . (iso-2022-jp euc-jp