英語の入力ができない問題の修正

[beyond-jp/beyond-jp.git] / TRANS.PAS

diff --git a/TRANS.PAS b/TRANS.PAS
index 0156e18..f741abc 100644 (file)
--- a/TRANS.PAS
+++ b/TRANS.PAS
@@ -7,9 +7,6 @@ begin
   fs := 0;
   fl := 0;
 
-  if ('A' <= Line[0]) and (Line[0] <= 'z') then
-    FindWord := False;
-
   for s := cur to Length(Line) do
   begin
     { \90\94\8e\9a(\96¼\8e\8c)\82©? }
@@ -181,6 +178,9 @@ end;
 procedure Translate;
 var message, verb, noun1, prepos, noun2 : Str16;
 begin
+  if ('A' <= Line[1]) and (Line[1] <= 'z') then
+    exit;
+
   SayJ(message);
   if message <> '' then
   begin