comparison lisp/language/japanese.el @ 21375:ecfe57c6e4a8

Set exit-function to exit-japanese-environment for Japanese environment.
author Kenichi Handa <handa@m17n.org>
date Mon, 06 Apr 1998 05:06:56 +0000
parents 5f2c7f919bbf
children a7ab22b5cfb3
comparison
equal deleted inserted replaced
21374:456146137d23 21375:ecfe57c6e4a8
76 (define-coding-system-alias 'euc-japan 'japanese-iso-8bit) 76 (define-coding-system-alias 'euc-japan 'japanese-iso-8bit)
77 (define-coding-system-alias 'euc-jp 'japanese-iso-8bit) 77 (define-coding-system-alias 'euc-jp 'japanese-iso-8bit)
78 78
79 (set-language-info-alist 79 (set-language-info-alist
80 "Japanese" '((setup-function . setup-japanese-environment) 80 "Japanese" '((setup-function . setup-japanese-environment)
81 (exit-function . exit-japanese-environment)
81 (tutorial . "TUTORIAL.jp") 82 (tutorial . "TUTORIAL.jp")
82 (charset japanese-jisx0208 japanese-jisx0208-1978 83 (charset japanese-jisx0208 japanese-jisx0208-1978
83 japanese-jisx0212 latin-jisx0201 katakana-jisx0201) 84 japanese-jisx0212 latin-jisx0201 katakana-jisx0201)
84 (coding-system iso-2022-jp japanese-iso-8bit 85 (coding-system iso-2022-jp japanese-iso-8bit
85 japanese-shift-jis japanese-iso-7bit-1978-irv) 86 japanese-shift-jis japanese-iso-7bit-1978-irv)