lace.text.cursor: Handle 'CR/LF' end of lines.

2022-08-11 12:31:54 +10:00
parent 359377777e
commit 953edb9604
1 changed files with 8 additions and 2 deletions
--- a/1-base/lace/source/text/lace-text-cursor.adb
+++ b/1-base/lace/source/text/lace-text-cursor.adb
@@ -161,9 +161,15 @@ is
   function next_Line (Self : in out item;   Trim : in Boolean := False) return String
   is
      use ada.Characters;
+      Token : constant String := next_Token (Self, Delimiter => latin_1.LF,
+                                                   Trim      => Trim);
   begin
-      return next_Token (Self, Delimiter => latin_1.LF,
-                               Trim      => Trim);
+      if Token (Token'Last) = latin_1.CR
+      then
+         return Token (Token'First .. Token'Last - 1);
+      else
+         return Token;
+      end if;
   end next_Line;