仮名の長音、濁音、半濁音が記号扱いにならないように修正。

diff --git a/GikoBayesian.pas b/GikoBayesian.pas
index a9e4c54..1b6890a 100644 (file)
--- a/GikoBayesian.pas
+++ b/GikoBayesian.pas
@@ -4,7 +4,7 @@ unit GikoBayesian;
 \file          GikoBayesian.pas
 \brief \83x\83C\83W\83A\83\93\83t\83B\83\8b\83^
 
-$Id: GikoBayesian.pas,v 1.5 2004/10/21 03:46:57 yoffy Exp $
+$Id: GikoBayesian.pas,v 1.6 2004/10/21 04:26:38 yoffy Exp $
 }
 
 interface
@@ -181,7 +181,7 @@ const
                0, 1, 1, 1, 1, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
                4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
                4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
-               4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 1, 1,
+               4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
                0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
                0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
        );
@@ -441,6 +441,10 @@ begin
                                        $8340..$8396:                           newMode := ModeWKata;
                                        else                                                            newMode := ModeWKanji;
                                        end;
+                                       // '\81J\81K\81[' \82Í\95½\89¼\96¼\81A\82Ü\82½\82Í\83J\83^\83J\83i\82É\8aÜ\82Ü\82ê\82é
+                                       if (mode = ModeWHira) or (mode = ModeWKata) then
+                                               if ch in [$814a, $814b, $815b] then
+                                                       newMode := mode;
                                end else begin
                                        newMode := ModeWhite;
                                end;