From 533d3a6f5a0043af3f66b72c3c9299b89e8106b3 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 6 Apr 1998 05:06:56 +0000 Subject: [PATCH] (setup-japanese-environment): Setup sentence-end suitable for Japanese text. (exit-japanese-environment): New function. --- lisp/language/japan-util.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el index 92d1fef0c18..275084fbf45 100644 --- 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 "\\|[$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) -- 2.39.2