Mercurial > emacs
diff lisp/language/japan-util.el @ 37871:dfd29e68d398
(japanese-symbol-table): Fix handling of
Japanese long tone sign. From Kenichi Handa <handa@etl.go.jp>.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 22 May 2001 09:33:15 +0000 |
| parents | b82a6fbaae16 |
| children | 49a0ec256ceb |
line wrap: on
line diff
--- a/lisp/language/japan-util.el Tue May 22 07:27:34 2001 +0000 +++ b/lisp/language/japan-util.el Tue May 22 09:33:15 2001 +0000 @@ -3,6 +3,7 @@ ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. +;; Copyright (C) 2001 Free SOftware Foundation, Inc. ;; Keywords: mule, multilingual, Japanese @@ -102,7 +103,7 @@ (defconst japanese-symbol-table '((?\$B!!(B ?\ ) (?$B!$(B ?, ?(I$(B) (?$B!%(B ?. ?(I!(B) (?$B!"(B ?, ?(I$(B) (?$B!#(B ?. ?(I!(B) (?$B!&(B nil ?(I%(B) (?$B!'(B ?:) (?$B!((B ?\;) (?$B!)(B ??) (?$B!*(B ?!) (?$B!+(B nil ?(I^(B) (?$B!,(B nil ?(I_(B) - (?$B!-(B ?') (?$B!.(B ?`) (?$B!0(B ?^) (?$B!2(B ?_) (?$B!<(B ?-) (?$B!=(B ?-) (?$B!>(B ?-) + (?$B!-(B ?') (?$B!.(B ?`) (?$B!0(B ?^) (?$B!2(B ?_) (?$B!<(B ?- ?(I0(B) (?$B!=(B ?-) (?$B!>(B ?-) (?$B!?(B ?/) (?$B!@(B ?\\) (?$B!A(B ?~) (?$B!C(B ?|) (?$B!F(B ?`) (?$B!G(B ?') (?$B!H(B ?\") (?$B!I(B ?\") (?\$B!J(B ?\() (?\$B!K(B ?\)) (?\$B!N(B ?[) (?\$B!O(B ?]) (?\$B!P(B ?{) (?\$B!Q(B ?}) (?$B!R(B ?<) (?$B!S(B ?>) (?$B!\(B ?+) (?$B!](B ?-) (?$B!a(B ?=) (?$B!c(B ?<) (?$B!d(B ?>)