(japanese-symbol-table): Fix handling of

Japanese long tone sign.  From Kenichi Handa <handa@etl.go.jp>.

lisp/ChangeLog

+2001-05-22  Gerd Moellmann  <gerd@gnu.org>
+
+	* language/japan-util.el (japanese-symbol-table): Fix handling of
+	Japanese long tone sign.  From Kenichi Handa <handa@etl.go.jp>.
+
 2001-05-21  Stefan Monnier  <monnier@cs.yale.edu>
 	* diff-mode.el (diff-jump-to-old-file, diff-update-on-the-fly):

lisp/language/japan-util.el

@@ -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 @@ HANKAKU-KATAKANA belongs to `japanese-jisx0201-kana'.")
 (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 ?>)