Mercurial > emacs
changeset 21376:ea0bc6fdefd5
(setup-japanese-environment): Setup
sentence-end suitable for Japanese text.
(exit-japanese-environment): New function.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 06 Apr 1998 05:06:56 +0000 |
| parents | ecfe57c6e4a8 |
| children | bc409dfad8e7 |
| files | lisp/language/japan-util.el |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/japan-util.el Mon Apr 06 05:06:56 1998 +0000 +++ b/lisp/language/japan-util.el Mon Apr 06 05:06:56 1998 +0000 @@ -24,6 +24,8 @@ ;;; Code: +(defvar sentence-end-save nil) + ;;;###autoload (defun setup-japanese-environment () "Setup multilingual environment (MULE) for Japanese." @@ -33,7 +35,12 @@ (if (eq system-type 'ms-dos) (prefer-coding-system 'japanese-shift-jis)) (setq default-file-name-coding-system 'japanese-iso-8bit) - (setq default-input-method "japanese")) + (setq default-input-method "japanese") + (setq sentence-end-save sentence-end) + (setq sentence-end (concat sentence-end "\\|[$B!#!)!*(B]"))) + +(defun exit-japanese-environment () + (setq sentence-end sentence-end-save)) (defconst japanese-kana-table '((?$B$"(B ?$B%"(B ?(I1(B) (?$B$$(B ?$B%$(B ?(I2(B) (?$B$&(B ?$B%&(B ?(I3(B) (?$B$((B ?$B%((B ?(I4(B) (?$B$*(B ?$B%*(B ?(I5(B)