(japanese-symbol-table): Fix handling of

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b4bfda9da266dfab110b22d450014bbaa4b17c71..a26962f4c09a58f5f1fe1f28ebaae6330cc94399 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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):

diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index 6724010cd6a37043cb98e87049b1eccdf9c31ec1..282926db926a7ee665996966bcd83805eb06fba3 100644 (file)
--- a/lisp/language/japan-util.el
+++ b/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
   '((?\\e$B!!\e(B ?\ ) (?\e$B!$\e(B ?, ?\e(I$\e(B) (?\e$B!%\e(B ?. ?\e(I!\e(B) (?\e$B!"\e(B ?, ?\e(I$\e(B) (?\e$B!#\e(B ?. ?\e(I!\e(B) (?\e$B!&\e(B nil ?\e(I%\e(B)
     (?\e$B!'\e(B ?:) (?\e$B!(\e(B ?\;) (?\e$B!)\e(B ??) (?\e$B!*\e(B ?!) (?\e$B!+\e(B nil ?\e(I^\e(B) (?\e$B!,\e(B nil ?\e(I_\e(B)
-    (?\e$B!-\e(B ?') (?\e$B!.\e(B ?`) (?\e$B!0\e(B ?^) (?\e$B!2\e(B ?_) (?\e$B!<\e(B ?-) (?\e$B!=\e(B ?-) (?\e$B!>\e(B ?-)
+    (?\e$B!-\e(B ?') (?\e$B!.\e(B ?`) (?\e$B!0\e(B ?^) (?\e$B!2\e(B ?_) (?\e$B!<\e(B ?- ?\e(I0\e(B) (?\e$B!=\e(B ?-) (?\e$B!>\e(B ?-)
     (?\e$B!?\e(B ?/) (?\e$B!@\e(B ?\\) (?\e$B!A\e(B ?~)  (?\e$B!C\e(B ?|) (?\e$B!F\e(B ?`) (?\e$B!G\e(B ?') (?\e$B!H\e(B ?\") (?\e$B!I\e(B ?\")
     (?\\e$B!J\e(B ?\() (?\\e$B!K\e(B ?\)) (?\\e$B!N\e(B ?[) (?\\e$B!O\e(B ?]) (?\\e$B!P\e(B ?{) (?\\e$B!Q\e(B ?})
     (?\e$B!R\e(B ?<) (?\e$B!S\e(B ?>) (?\e$B!\\e(B ?+) (?\e$B!]\e(B ?-) (?\e$B!a\e(B ?=) (?\e$B!c\e(B ?<) (?\e$B!d\e(B ?>)