Commit 9323f902 authored by David Kågedal's avatar David Kågedal
Browse files

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

(text-list->length): Ny funktion.
(text-list->delq): Ny funktion.
(text-list->append): Ny funktion.
parent 75a9a1f8
......@@ -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:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment