Mercurial > emacs
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) |