From 42a805f5b629669aa4260a216a5bc83f6bd8a954 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 24 Feb 2003 04:50:09 +0000 Subject: [PATCH] (sentence-end-save): Variable deleted. (setup-japanese-environment-internal): Don't setup sentence-end. (exit-japanese-environment): Function deleted. --- lisp/language/japan-util.el | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el index 97554d1c0de..d7b6d9d3879 100644 --- 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 "\\|[$B!#!)!*(B]"))) - -(defun exit-japanese-environment () - (setq sentence-end sentence-end-save)) + (prefer-coding-system 'japanese-iso-8bit)))) (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)