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

* prefetch.el (lyskom-prefetch-text-list): Använd text-list->empty.

parent 57d59275
......@@ -309,10 +309,11 @@ prefetched the prefetch is not done."
(defun lyskom-prefetch-text-list (text-list &optional queue)
"Prefetches a list of texts."
(if (null (text-list->texts text-list))
(if (text-list->empty text-list)
nil
(if queue
(lyskom-queue-enter queue (list 'TEXT-LIST (text-list->texts text-list)))
(lyskom-queue-enter queue
(list 'TEXT-LIST (text-list->texts text-list)))
(lyskom-stack-push lyskom-prefetch-stack
(list 'TEXT-LIST (text-list->texts text-list)))))
(lyskom-continue-prefetch))
......
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