Mercurial > emacs
changeset 49947:8e366c0e85aa
(sentence-end-save): Variable deleted.
(setup-japanese-environment-internal): Don't setup sentence-end.
(exit-japanese-environment): Function deleted.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 24 Feb 2003 04:50:09 +0000 |
| parents | 59d00c2f0975 |
| children | d71b3dd652d7 |
| files | lisp/language/japan-util.el |
| diffstat | 1 files changed, 1 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/japan-util.el Mon Feb 24 04:49:42 2003 +0000 +++ b/lisp/language/japan-util.el Mon Feb 24 04:50:09 2003 +0000 @@ -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)