Fixed bug 1101.

Detailed changes:
> 	Fix bug 1101:
> 	* komtypes.el (text-list->trim-head): The new length was computed
> 	incorrectly, leading to problems if this function was called
> 	without intervening calls to functions that corrected the error.
>

src/ChangeLog

 2003-08-30  David Byers  <byers@lysator.liu.se>
 
+	Fix bug 1101:
+	* komtypes.el (text-list->trim-head): The new length was computed
+	incorrectly, leading to problems if this function was called
+	without intervening calls to functions that corrected the error.
+
 	Fix bug 1131:
 	* parse.el (lyskom-init-parse): Inherit inheritable variables from
 	lyskom-buffer since the parsers may depend on them.

src/komtypes.el

@@ -793,7 +793,7 @@ Do nothing if the TLIST is less than N elements long."
   (set-text-list->texts-internal tlist (nthcdr (max (- (text-list->length tlist) n) 0)
                                                (text-list->texts tlist)))
   (when (text-list->length-internal tlist)
-    (set-text-list->length-internal tlist (- (text-list->length-internal tlist) n)))
+    (set-text-list->length-internal tlist n))
   (unless (text-list->texts tlist)
     (set-text-list->length-internal tlist 0)
     (set-text-list->tail tlist nil)))