[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/language/japan-util.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/language/japan-util.el |
Date: |
Sun, 02 Mar 2003 20:42:37 -0500 |
Index: emacs/lisp/language/japan-util.el
diff -c emacs/lisp/language/japan-util.el:1.30
emacs/lisp/language/japan-util.el:1.31
*** emacs/lisp/language/japan-util.el:1.30 Tue Feb 4 08:11:50 2003
--- emacs/lisp/language/japan-util.el Sun Feb 23 23:50:09 2003
***************
*** 27,45 ****
;;; 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))
(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)
--- 27,38 ----
;;; Code:
;;;###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))))
(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)
- [Emacs-diffs] Changes to emacs/lisp/language/japan-util.el,
Kenichi Handa <=