Update revsecommoneditorbehavior.livecodescript

added testing for if tFirstLine is tLastLine, though the speed difference is not measurable, both version take 12 milliseconds on a 3600 line script. But I agree it is a cleaner way to do it.

Additionally I changed 
put (the number of chars of line 1 to tFirstLine - 1 of tNewText) + 1 into tFirstLineChar
from + 2 to +1. This also keeps the selection if the cursor is positioned before the first char.

As far as I understand charIndex works only on fields not variables. I did test and there is not speed improvement using charIndex on the field.

Author: BerndN

Toolset/palettes/script editor/behaviors/revsecommoneditorbehavior.livecodescript

@@ -2998,20 +2998,28 @@ command scriptFormat pScope, pDontGroup
       if word 4 of it is a number then put word 4 of it into tLastLine else put tFirstLine into tLastLine
 
       put the number of chars of line 1 to tFirstLine of tOldText into tCharsAboveFirstLineOld
-      put the number of chars of line 1 to tLastLine of tOldText into tCharsAboveLastLineOld
+      if tFirstLine is tLastLine then
+         put tCharsAboveFirstLineOld into tCharsAboveLastLineOld
+      else
+         put the number of chars of line 1 to tLastLine of tOldText into tCharsAboveLastLineOld
+      end if
 
       local tNewText
       put textFormatSelection(tOldText) into tNewText
 
       local tCharsAboveFirstLineNew, tCharsAboveLastLineNew, tDiffFirstLine, tDiffLastLine
       put the number of chars of line 1 to tFirstLine of tNewText into tCharsAboveFirstLineNew
-      put the number of chars of line 1 to tLastLine of tNewText into tCharsAboveLastLineNew
+      if tFirstLine is tLastLine then
+         put tCharsAboveFirstLineNew into tCharsAboveLastLineNew
+      else
+         put the number of chars of line 1 to tLastLine of tNewText into tCharsAboveLastLineNew
+      end if
 
       put tCharsAboveFirstLineOld - tCharsAboveFirstLineNew into tDiffFirstLine
       put tCharsAboveLastLineOld - tCharsAboveLastLineNew into tDiffLastLine
 
       local tFirstLineChar
-      put (the number of chars of line 1 to tFirstLine - 1 of tNewText) + 2 into tFirstLineChar
+      put (the number of chars of line 1 to tFirstLine - 1 of tNewText) + 1 into tFirstLineChar
 
       textReplace tStartChar, tOldText, tNewText, empty, pDontGroup