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