Mercurial > emacs

comparison lisp/language/japanese.el @ 17088:76d2eb70aa0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove prefix "coding-system-" from coding system symbol names. Change coding system name shift-jis to shift_jis.
author Kenichi Handa <handa@m17n.org>
date Wed, 26 Feb 1997 12:44:11 +0000
parents 70194012fb3a
children 37ae0c18bd47
comparison
equal deleted inserted replaced
17087:fb13faeea9aa 17088:76d2eb70aa0b
27 ;; For Japanese, character sets JISX0201, JISX0208, JISX0212 are 27 ;; For Japanese, character sets JISX0201, JISX0208, JISX0212 are
28 ;; supported. 28 ;; supported.
29 29
30 ;;; Code: 30 ;;; Code:
31 31
32 (define-coding-system-alias 'iso-2022-7 'iso-2022-jp)
33 (define-coding-system-alias 'iso-2022-7 'junet)
34
32 (make-coding-system 35 (make-coding-system
33 'coding-system-sjis 1 ?S 36 'shift_jis 1 ?S
34 "Coding-system of Shift-JIS used in Japan." t) 37 "Coding-system of Shift-JIS used in Japan." t)
35 38
36 ;; ISO-2022-JP and JUNET are aliases for ISO-2022-7. 39 (define-coding-system-alias 'shift_jis 'sjis)
37 (put 'coding-system-iso-2022-jp 'coding-system 'coding-system-iso-2022-7)
38 (put 'coding-system-junet 'coding-system 'coding-system-iso-2022-7)
39 40
40 (make-coding-system 41 (make-coding-system
41 'coding-system-old-jis 2 ?J 42 'iso-2022-jp-1978-irv 2 ?J
42 "Coding-system used for old jis terminal." 43 "Coding-system used for old jis terminal."
43 '((ascii t) nil nil nil 44 '((ascii t) nil nil nil
44 short ascii-eol ascii-cntl seven nil nil use-roman use-oldjis)) 45 short ascii-eol ascii-cntl seven nil nil use-roman use-oldjis))
45 46
47 (define-coding-system-alias 'iso-2022-jp-1978-irv 'old-jis)
48
46 (make-coding-system 49 (make-coding-system
47 'coding-system-euc-japan 2 ?E 50 'euc-japan-1990 2 ?E
48 "Coding-system of Japanese EUC (Extended Unix Code)." 51 "Coding-system of Japanese EUC (Extended Unix Code)."
49 '(ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212 52 '(ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212
50 short ascii-eol ascii-cntl nil nil single-shift)) 53 short ascii-eol ascii-cntl nil nil single-shift))
51 54
55 (define-coding-system-alias 'euc-japan-1990 'euc-japan)
56
57 (register-input-method
58 "Japanese" '("uum" encoded-kbd-select-terminal iso-2022-jp))
59 (register-input-method
60 "Japanese" '("quail-ja-hiragana" quail-use-package "quail/japanese"))
52 (register-input-method 61 (register-input-method
53 "Japanese" '("quail-ja" quail-use-package "quail/japanese")) 62 "Japanese" '("quail-ja" quail-use-package "quail/japanese"))
54 63
55 (register-input-method
56 "Japanese" '("quail-ja-hiragana" quail-use-package "quail/japanese"))
57
58 (defun setup-japanese-environment () 64 (defun setup-japanese-environment ()
59 (interactive) 65 (interactive)
60 (setq coding-category-iso-8-2 'coding-system-euc-japan) 66 (setq coding-category-iso-8-2 'euc-japan-1990)
61 67
62 (set-coding-priority 68 (set-coding-priority
63 '(coding-category-iso-7 69 '(coding-category-iso-7
64 coding-category-iso-8-2 70 coding-category-iso-8-2
65 coding-category-sjis 71 coding-category-sjis
67 coding-category-iso-else 73 coding-category-iso-else
68 coding-category-internal)) 74 coding-category-internal))
69 75
70 (if (eq system-type 'ms-dos) 76 (if (eq system-type 'ms-dos)
71 (progn 77 (progn
72 (setq-default buffer-file-coding-system 'coding-system-sjis) 78 (setq-default buffer-file-coding-system 'sjis)
73 (set-terminal-coding-system 'coding-system-sjis) 79 (set-terminal-coding-system 'sjis)
74 (set-keyboard-coding-system 'coding-system-sjis) 80 (set-keyboard-coding-system 'sjis)
75 (setq default-process-coding-system 81 (setq default-process-coding-system '(sjis-dos . sjis-dos)))
76 '(coding-system-sjis-dos . coding-system-sjis-dos))) 82 (setq-default buffer-file-coding-system 'iso-2022-jp)
77 (setq-default buffer-file-coding-system 'coding-system-iso-2022-jp) 83 (set-terminal-coding-system 'iso-2022-jp)
78 (set-terminal-coding-system 'coding-system-iso-2022-jp) 84 (set-keyboard-coding-system 'iso-2022-jp))
79 (set-keyboard-coding-system 'coding-system-iso-2022-jp))
80 85
81 (set-default-input-method "Japanese" "quail-ja") 86 (set-default-input-method "Japanese" "quail-ja")
82 ) 87 )
83 88
84 (set-language-info-alist 89 (set-language-info-alist
85 "Japanese" '((setup-function . setup-japanese-environment) 90 "Japanese" '((setup-function . setup-japanese-environment)
86 (tutorial . "TUTORIAL.jp") 91 (tutorial . "TUTORIAL.jp")
87 (charset . (japanese-jisx0208 japanese-jisx0208-1978 92 (charset . (japanese-jisx0208 japanese-jisx0208-1978
88 japanese-jisx0212 latin-jisx0201 93 japanese-jisx0212 latin-jisx0201
89 katakana-jisx0201)) 94 katakana-jisx0201))
90 (coding-system . (coding-system-euc-japan 95 (coding-system . (euc-japan-1990 sjis
91 coding-system-sjis 96 iso-2022-jp iso-2022-jp-1978-irv))
92 coding-system-old-jis
93 coding-system-iso-2022-jp))
94 (documentation . t) 97 (documentation . t)
95 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B"))) 98 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B")))
96 99
97 ;;; japanese.el ends here 100 ;;; japanese.el ends here