[Synedit-checkins] SynEdit/Source SynEdit.pas,1.383,1.384

[Flávio E. <et...@us...>]

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

Modified Files:
	SynEdit.pas 
Log Message:
Great. The only place crCaret and crSelection were being used I was using them wrong.

Index: SynEdit.pas
===================================================================
RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v
retrieving revision 1.383
retrieving revision 1.384
diff -u -d -r1.383 -r1.384
--- SynEdit.pas	6 Aug 2004 02:39:45 -0000	1.383
+++ SynEdit.pas	7 Aug 2004 02:00:42 -0000	1.384
@@ -8708,12 +8708,12 @@
       end;
       BeginUndoBlock;
       try
-        SelText := w;
-        fUndoList.AddChange( crCaret, oldCaret, oldCaret, '', SelectionMode );
         if bHadSel then
-          fUndoList.AddChange( crSelection, oldBlockBegin, oldBlockEnd, '', SelectionMode )
+          fUndoList.AddChange(crSelection, oldBlockBegin, oldBlockEnd, '', SelectionMode)
         else
-          fUndoList.AddChange( crSelection, oldCaret, oldCaret, '', SelectionMode );
+          fUndoList.AddChange(crSelection, oldCaret, oldCaret, '', SelectionMode);
+        fUndoList.AddChange(crCaret, oldCaret, oldCaret, '', SelectionMode);
+        SelText := w;
       finally
         EndUndoBlock;
       end;