Commit 533d3a6f authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(setup-japanese-environment): Setup

sentence-end suitable for Japanese text.
(exit-japanese-environment): New function.
parent 0eb10198
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment