(setup-japanese-environment): Setup

sentence-end suitable for Japanese text.
(exit-japanese-environment): New function.

diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index 92d1fef0c18a18f7fe8d18f7e4868745d3598b6a..275084fbf45c042fce929175a6e30f800b33516f 100644 (file)
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -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 "\\|[\e$B!#!)!*\e(B]")))
+
+(defun exit-japanese-environment ()
+  (setq sentence-end sentence-end-save))
 
 (defconst japanese-kana-table
   '((?\e$B$"\e(B ?\e$B%"\e(B ?\e(I1\e(B) (?\e$B$$\e(B ?\e$B%$\e(B ?\e(I2\e(B) (?\e$B$&\e(B ?\e$B%&\e(B ?\e(I3\e(B) (?\e$B$(\e(B ?\e$B%(\e(B ?\e(I4\e(B) (?\e$B$*\e(B ?\e$B%*\e(B ?\e(I5\e(B)