(sentence-end-save): Variable deleted.

(setup-japanese-environment-internal): Don't setup sentence-end.
(exit-japanese-environment): Function deleted.

diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index 97554d1c0de3b2438179dda9c26fb899bd932416..d7b6d9d3879b2b24311feaf66fb6feafb2608b9a 100644 (file)
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -27,19 +27,12 @@
 
 ;;; Code:
 
-(defvar sentence-end-save nil)
-
 ;;;###autoload
 (defun setup-japanese-environment-internal ()
   (cond ((eq system-type 'ms-dos)
         (prefer-coding-system 'japanese-shift-jis))
        ((eq system-type 'usg-unix-v)
-        (prefer-coding-system 'japanese-iso-8bit)))
-  (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))
+        (prefer-coding-system 'japanese-iso-8bit))))
 
 (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)