* clienttypes.el (read-info-append-text-list): Använd text-list->append.

(read-list-delete-text): Använd text-list->delq.

src/clienttypes.el

@@ -144,10 +144,7 @@
 
 
 (defsubst read-info-append-text-list (read-info texts)
-  (set-read-info->text-list
-   read-info
-   (nconc (read-info->text-list read-info)
-	  texts)))
+  (text-list->append (read-info->text-list read-info) texts))
 
 (defsubst read-info-enter-text-last (read-info text-no)
   (read-info-append-text-list read-info (list text-no)))
@@ -250,12 +247,11 @@ TEXT-NO may be nil, in which case only empty read-infos on RLIST are removed."
 		  (eq type 'REVIEW-MARK))))
 	   (t				; Do change all other entries.
 	    (let ((tl  (read-info->text-list (car curr))))
-	      (set-text-list->texts
-	       tl (delq text-no (text-list->texts tl)))))))
+	      (text-list->delq tl text-no)))))
       
       ;; Delete this element from RLIST if the text-list became or was empty.
       
-      (if (null (text-list->texts (read-info->text-list (car curr))))
+      (if (text-list->empty (read-info->text-list (car curr)))
 	  (setcdr prev (cdr curr))
 	(setq prev curr))
       (setq curr (cdr curr))))