[tyndur-devel] [PATCH 1/2] kedit: Fix fuer Schluesselworterkennung

[Kevin Wolf <kevin@xxxxxxxxxx>]

! kedit: Wenn nach einem Schluesselwort nochmal Buchstaben kommen, ist
  es wohl doch keins
---
 src/modules/pas/kedit/syntax.pas |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/src/modules/pas/kedit/syntax.pas b/src/modules/pas/kedit/syntax.pas
index c7cc5a9..71a23a0 100644
--- a/src/modules/pas/kedit/syntax.pas
+++ b/src/modules/pas/kedit/syntax.pas
@@ -128,6 +128,9 @@ begin
 
     for i := Low(p) to High(p) do begin
         if Matches(s, pos, p[i]) then begin
+            if (pos + Length(p[i]) <= Length(s)) and (s[pos + Length(p[i])] in ['A'..'Z', 'a'..'z', '0'..'9', '_']) then begin
+                exit(0);
+            end;
             exit(length(p[i]));
         end;
     end;
-- 
1.5.6.5