[Synedit-checkins] SynEdit/Source SynEdit.pas,1.378,1.379

[Marko N. <mar...@us...>]

Update of /cvsroot/synedit/SynEdit/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27516/Source

Modified Files:
	SynEdit.pas 
Log Message:
Fixed bug: [ 990974 ] Bug with BackSpace key

Index: SynEdit.pas
===================================================================
RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v
retrieving revision 1.378
retrieving revision 1.379
diff -u -d -r1.378 -r1.379
--- SynEdit.pas	31 Jul 2004 16:20:07 -0000	1.378
+++ SynEdit.pas	1 Aug 2004 20:54:18 -0000	1.379
@@ -6792,7 +6792,9 @@
                           if SpaceCount2 < SpaceCount1 then
                             break;
                           Dec(BackCounter);
-                        end
+                        end;
+                      if (BackCounter = -1) and (SpaceCount2 > SpaceCount1) then
+                        SpaceCount2 := 0;
                     end;
                     if SpaceCount2 = SpaceCount1 then
                       SpaceCount2 := 0;
@@ -6840,6 +6842,8 @@
                           break;
                         Dec(BackCounter);
                       end;
+                      if (BackCounter = -1) and (SpaceCount2 > SpaceCount1) then
+                        SpaceCount2 := 0;
                     end;
                     if SpaceCount2 = SpaceCount1 then
                       SpaceCount2 := 0;