Browse Source

* fixed small bug with a #13#10 on a line

peter 27 years ago
parent
commit
d97b8fa00f
1 changed files with 5 additions and 2 deletions
  1. 5 2
      rtl/inc/text.inc

+ 5 - 2
rtl/inc/text.inc

@@ -773,7 +773,7 @@ Begin
   { was it a LF? then leave }
   { was it a LF? then leave }
     if p^=#10 then
     if p^=#10 then
      begin
      begin
-       if (spos>1) and (s[spos]=#13) then
+       if (spos>0) and (s[spos]=#13) then
         dec(sPos);
         dec(sPos);
        break;
        break;
      end;
      end;
@@ -1242,7 +1242,10 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.27  1998-09-18 12:23:22  peter
+  Revision 1.28  1998-09-24 23:32:24  peter
+    * fixed small bug with a #13#10 on a line
+
+  Revision 1.27  1998/09/18 12:23:22  peter
     * fixed a bug introduced by my previous update
     * fixed a bug introduced by my previous update
 
 
   Revision 1.26  1998/09/17 16:34:18  peter
   Revision 1.26  1998/09/17 16:34:18  peter