From 49ff0a123557f951ad50b8ac0270e87ffb0c49e7 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 8 Jan 2019 03:50:33 +0000
Subject: [PATCH] * Fix bug #22435, using provided patch by alex biasi

git-svn-id: trunk@40802 -
---
 packages/ide/weditor.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/ide/weditor.pas b/packages/ide/weditor.pas
index 01696a97a6..1353b0c040 100644
--- a/packages/ide/weditor.pas
+++ b/packages/ide/weditor.pas
@@ -5124,7 +5124,7 @@ begin
   OK:=(S[StartPos] in WordChars);
   if OK then
     begin
-       While (StartPos>0) and (S[StartPos-1] in WordChars) do
+       While (StartPos>1) and (S[StartPos-1] in WordChars) do
          Dec(StartPos);
        While (EndPos<Length(S)) and (S[EndPos+1] in WordChars) do
          Inc(EndPos);