fix #294 - Plus or Asterisk inserted just before a DDOC comment due to usage of SelStart

src/ce_dlang.pas

@@ -152,6 +152,9 @@ procedure getImports(list: TLexTokenList; imports: TStrings);
  * Compares two TPoints.
  *)
 operator = (lhs: TPoint; rhs: TPoint): boolean;
+operator > (lhs: TPoint; rhs: TPoint): boolean;
+operator < (lhs: TPoint; rhs: TPoint): boolean;
+operator <= (lhs: TPoint; rhs: TPoint): boolean;
 
 implementation
 
@@ -161,6 +164,21 @@ begin
   exit((lhs.y = rhs.y) and (lhs.x = rhs.x));
 end;
 
+operator > (lhs: TPoint; rhs: TPoint): boolean;
+begin
+  exit((lhs.y > rhs.y) or ((lhs.y = rhs.y) and (lhs.x > rhs.x)));
+end;
+
+operator < (lhs: TPoint; rhs: TPoint): boolean;
+begin
+  exit(rhs > lhs);
+end;
+
+operator <= (lhs: TPoint; rhs: TPoint): boolean;
+begin
+  exit((lhs = rhs) or (lhs < rhs));
+end;
+
 constructor TReaderHead.Create(const text: PChar; const colAndLine: TPoint);
 begin
   setReader(text, colAndLine);

src/ce_synmemo.pas

@@ -2857,21 +2857,23 @@ end;
 function TCESynMemo.lexInDdoc: char;
 var
   i: integer;
-  p: integer;
+  p: TPoint;
   tk1: PLexToken = nil;
   tk2: PLexToken = nil;
   r: TStringRange = (ptr:nil; pos:0; len: 0);
 begin
+  // note: never use SelStart here. SelStart is updated too early
+  // and matches to the future position, e.g the one after auto-indentation.
   result := #0;
-  p := SelStart;
+  p := CaretXY;
   for i := 0 to fLexToks.Count-1 do
   begin
     tk1 := fLexToks[i];
     if (i <> fLexToks.Count-1) then
     begin
       tk2 := fLexToks[i+1];
-      if (tk1^.offset < p) and (tk1^.kind in [ltkComment, ltkIllegal])
-        and (tk1^.Data[1] in ['*','+']) and (tk2^.offset > p) then
+      if (tk1^.position < p) and (tk1^.kind in [ltkComment, ltkIllegal])
+        and (p <= tk2^.position) and (tk1^.Data[1] in ['*','+']) then
       begin
         r.init(tk1^.Data);
         r.popUntil(#10)^.popFront;
@@ -2886,10 +2888,10 @@ begin
         end
         else exit(tk1^.Data[1])
       end
-      else if (tk1^.offset > p) then
+      else if (tk1^.position > p) then
         exit;
     end
-    else if (tk1^.offset < p) and (tk1^.kind in [ltkComment, ltkIllegal])
+    else if (tk1^.position < p) and (tk1^.kind in [ltkComment, ltkIllegal])
       and (tk1^.Data[1] in ['*','+']) then
         exit(tk1^.Data[1]);
   end;