Commit f6f2a7ba authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

Continuing in the prefetch-ligth. It is beginning to work now.

parent 21910f0e
Sat Aug 1 17:45:37 1992 Linus Tolke Y (linus@robin)
* prefetch.el (lyskom-prefetch-membership-handler,
lyskom-prefetch-one-item): lyskom-membership-is-read is set to
t when all the membership is read.
* lyskom-rest.el (lyskom-end-of-command):
startup.el (lyskom-start-anew-login-2): prefetched started after
first prompt is written.
* lyskom-rest.el (lyskom-what-to-do): The decision of when we are
done now use an updated algoritm (lyskom-membership-is-read == t)
Thu Jul 30 03:54:50 1992 Linus Tolke Y (linus@lysator)
* prefetch.el (lyskom-prefetch-membership-handler): Wrong call to map.
......
No preview for this file type
......@@ -86,6 +86,7 @@ lyskom-queue.
are done.
For every membership-part we fetch the conf-stats
before continuing with the next part.
(MEMBERSHIPISREAD) - Just sets the lyskom-membership-is-read variable to t.
See further documentation in the source code.")
......@@ -356,6 +357,11 @@ Return t if an element was prefetched, otherwise return nil."
(setcar prefetch-list queue)
(lyskom-prefetch-one-request element queue)
(setq result t)))
;; Special request
((and (listp element)
(eq (car element 'MEMBERSHIPISREAD)))
(setq lyskom-membership-is-read t))
(t (signal 'lyskom-internal-error
'(lyskom-prefetch-one-item ": unknown key"))))
......@@ -504,7 +510,9 @@ Put the requests on QUEUE."
(setq list (cdr list)))
(if (and (numberp lyskom-membership-is-read)
(< (length membership) lyskom-fetch-membership-length))
(setq lyskom-membership-is-read 'almost)
(progn
(setq lyskom-membership-is-read 'almost)
(lyskom-queue-enter queue (list 'MEMBERSHIPISREAD)))
(setq lyskom-membership-is-read (+ lyskom-membership-is-read
lyskom-fetch-membership-length))
(lyskom-prefetch-membership pers-no queue)))
......
......@@ -274,7 +274,8 @@ Optional argument CONF-STAT is used to check for a msg-of-day on the person."
(lyskom-prefetch-marks)
(lyskom-prefetch-who-is-on)
(lyskom-prefetch-membership pers-no)
(lyskom-start-prefetch))))
;; Don't start prefetching until we have the first prompt.
)))
(defun lyskom-register-unread-confs (unread-confs)
......
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