# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 891839216 0
# Node ID ea0bc6fdefd51a104681728e078222366a9da334
# Parent  ecfe57c6e4a88628e5ecd2669faee5a25debbeb2
(setup-japanese-environment): Setup
sentence-end suitable for Japanese text.
(exit-japanese-environment): New function.

diff -r ecfe57c6e4a8 -r ea0bc6fdefd5 lisp/language/japan-util.el
--- 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)