Commit 81d7692c authored by inge's avatar inge
Browse files

Part 1 in the great prefetch cleanup.

parent a129c35a
Sun Jul 26 18:10:38 1992 Inge Wallin (inge@lysator)
* cache.el: cleaned up handling of the who info buffer slightly.
This should become very nice once the cookie code is used
instead.
* async.el: Deleted some unnecessary junk.
* prefetch.el New functions: lyskom-reset-prefetch,
lyskom-setup-prefetch, lyskom-prefetch-membership,
lyskom-prefetch-all-conf-stats, lyskom-prefetch-marks,
lyskom-prefetch-who-is-on. Not all of these functions are
working as intended but at least they should do their job.
Sun Jul 19 12:07:22 1992 Linus Tolke Y (linus@lysator)
* commands1.el (lyskom-return-who-info-line): Fixed a bug that
......
......@@ -72,8 +72,8 @@ this function shall be with current-buffer the BUFFER."
; (initiate-get-conf-stat 'follow
; 'lyskom-show-logged-out-person
; pno))
; (if (not (zerop lyskom-pers-no))
; (initiate-who-is-on 'who-buffer 'cache-set-who-info-list))))
;nej: (if (not (zerop lyskom-pers-no))
;nej: (initiate-who-is-on 'who-buffer 'cache-set-who-info-list))))
)
((eq msg-no 2) ; Login, obsolete.
......@@ -148,8 +148,6 @@ this function shall be with current-buffer the BUFFER."
(initiate-get-conf-stat 'follow
'lyskom-show-logged-in-person
pers-no))
; (if (not (zerop lyskom-pers-no))
; (initiate-who-is-on 'who-buffer 'cache-set-who-info-list))
(if (and (not (zerop lyskom-pers-no))
lyskom-who-info-buffer-is-on)
(initiate-get-session-info 'who-buffer 'cache-add-session-info
......
......@@ -185,7 +185,7 @@ otherwise return nil"
;;; who-info cache
(defun cache-set-who-info-list (who-info-arr)
(defun cache-initiate-who-info-buffer (who-info-arr)
"Sets the cache of who-info items."
(setq lyskom-who-info-cache (list 'WHO-INFO-LIST))
(lyskom-save-excursion
......
......@@ -278,21 +278,6 @@ will be inserted before it."
(t
(setq rlist (cdr rlist)))))))
;; This is the old recursive version. It can be removed once it is
;; established that the iterative version is correct. /Inge
;; (cond
;; ((null rlist)
;; (cons read-info nil))
;; ((or (atom (car rlist)) ;The dummy element.
;; (<= (read-info->priority read-info)
;; (+ (if before -1 0)
;; (read-info->priority (car rlist)))))
;; (setcdr rlist (read-list-enter-read-info read-info (cdr rlist) before))
;; rlist)
;; (t
;; (cons read-info rlist))))
(defun read-list-delete-read-info (conf-no rlist)
"Destructively removes all the entries for the conf CONF-NO in RLIST.
RLIST is a list of read-info."
......
......@@ -23,6 +23,10 @@
;;;;; Please mail bug reports to bug-lyskom@lysator.liu.se.
;;;;;
;;;; ================================================================
;;; +++ lyskom-reset-prefetch to be called on client reset.
;;; must restart everything.
;;; +++ THIS DOES NOT WORK CURRENTLY
(defun lyskom-reset-prefetch () nil)
;;;; ================================================================
;;;;
;;;; File: prefetch.el
......@@ -193,6 +197,32 @@ lyskom-prefetch-stack."
(lyskom-continue-prefetch))
(defun lyskom-prefetch-membership (pers-no &optional queue)
"+++"
(initiate-get-membership 'main lyskom-set-membership pers-no)
;; h{mtar medlemsskapet i sm} delar
;; och d{refter conf-stat f|r m|tena
nil)
(defun lyskom-prefetch-all-conf-stats (&optional queue)
"+++"
nil)
(defun lyskom-prefetch-marks (&optional queue)
"+++"
(initiate-get-marks 'main 'cache-set-marked-texts)
nil)
(defun lyskom-prefetch-who-is-on (&optional queue)
"+++"
;;(cache-initiate-who-info-buffer) +++do it later this way
(initiate-who-is-on 'prefetch 'cache-initiate-who-info-buffer)
nil)
;;; ================================================================
;;; Functions internal to the prefetch package
......
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