SynEdit: fix endless XML HL, do not return empty tokens.

components/synedit/synhighlighterxml.pas

@@ -792,29 +792,33 @@ end;
 procedure TSynXMLSyn.Next;
 begin
   fTokenPos := Run;
-  case fRange of
+  while fTokenPos = Run do begin
-  rsText:
+    case fRange of
-    begin
+    rsText:
-      TextProc();
+      begin
+        TextProc();
+      end;
+    rsComment:
+      begin
+        CommentProc();
+      end;
+    rsProcessingInstruction:
+      begin
+        ProcessingInstructionProc();
+      end;
+    rsDocType, rsDocTypeSquareBraces:                                            //ek 2001-11-11
+      begin
+        DocTypeProc();
+      end;
+    rsCDATA:
+      begin
+        CDATAProc();
+      end;
+    else
+      fProcTable[fLine[Run]]();
     end;
-  rsComment:
+    if fTokenId = tkNull then // EOL
-    begin
+      break;
-      CommentProc();
-    end;
-  rsProcessingInstruction:
-    begin
-      ProcessingInstructionProc();
-    end;
-  rsDocType, rsDocTypeSquareBraces:                                            //ek 2001-11-11
-    begin
-      DocTypeProc();
-    end;
-  rsCDATA:
-    begin
-      CDATAProc();
-    end;
-  else
-    fProcTable[fLine[Run]]();
   end;
 end;