* komtypes.el (text-list->empty): Ny funktion.

(text-list->length): Ny funktion.
(text-list->delq): Ny funktion.
(text-list->append): Ny funktion.

src/komtypes.el

@@ -1607,6 +1607,14 @@ The MAPS must be consecutive. No gaps or overlaps are currently allowed."
   "Get texts from text-list."
   (cdr text-list))
 
+(defsubst text-list->empty (text-list)
+  "Return t if TEXT-LIST is empty."
+  (null (cdr text-list)))
+
+(defsubst text-list->length (text-list)
+  "Return the length of TEXT-LIST."
+  (length (cdr text-list)))
+
 
 ;;; Modifier:
 
@@ -1614,6 +1622,13 @@ The MAPS must be consecutive. No gaps or overlaps are currently allowed."
   "Set texts in TEXT-LIST to NEWVAL."
   (setcdr text-list newval))
 
+(defsubst text-list->delq (text-list no)
+  "Remove text NO from TEXT-LIST."
+  (setcdr text-list (delq no (cdr text-list))))
+
+(defsubst text-list->append (text-list texts)
+  "Destructively append TEXTS to the end of TEXT-LIST."
+  (setcdr text-list (nconc (cdr text-list) texts)))
 
 ;;; Predicate: