mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(sentence-end-save): Variable deleted.

Browse Source 
(setup-japanese-environment-internal): Don't setup sentence-end.
(exit-japanese-environment): Function deleted.
This commit is contained in:
Kenichi Handa 2003-02-24 04:50:09 +00:00
parent 840f8f73d9
commit 42a805f5b6
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/language/japan-util.el
View File

@ -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)