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

* prefetch.el (lyskom-prefetch-membership-handler): Gör inte om

vektorn till en lista i onödan.
(lyskom-prefetch-one-request): Skicka first-local oförändrat. Den
gjorde detta två gånger, vilket gjorde att man förlorade hälften
av de lokala textnumren.

* view-text.el (lyskom-view-text): Använd en marker för att sätta
kom-first-line-face korrekt när kom-max-buffer-size används.

* lyskom-rest.el (lyskom-trim-buffer): Sätt inhibit-read-only.
parent ec59ee0d
Sat Oct 5 19:23:13 1996 David Kgedal <>
* prefetch.el (lyskom-prefetch-membership-handler): Gr inte om
vektorn till en lista i ondan.
(lyskom-prefetch-one-request): Skicka first-local ofrndrat. Den
gjorde detta tv gnger, vilket gjorde att man frlorade hlften
av de lokala textnumren.
* view-text.el (lyskom-view-text): Anvnd en marker fr att stta
kom-first-line-face korrekt nr kom-max-buffer-size anvnds.
* lyskom-rest.el (lyskom-trim-buffer): Stt inhibit-read-only.
Thu Oct 3 01:30:03 1996 David Kgedal <>
* lyskom-rest.el (lyskom-binsearch-internal): Tro inte att tv
......@@ -6,7 +19,8 @@ Thu Oct 3 01:30:03 1996 David K
* Rensade bort referenser till lyskom-last-conf-*.
* startup.el (lyskom-clear-vars): Gr lyskom-prefetch-in-action,
lyskom-prefetch-pending-prefetch och lyskom-prefetch-stack lokala.
lyskom-prefetch-pending-prefetch, lyskom-pending-prefetch och
lyskom-prefetch-stack lokala.
* (lyskom-last-conf-fetched): Tog bort.
(lyskom-last-conf-received): Tog bort.
No preview for this file type
......@@ -463,12 +463,13 @@ Return t if an element was prefetched, otherwise return nil."
((eq (car request) 'MAP)
(initiate-get-map 'prefetch 'lyskom-prefetch-map-handler
(conf-stat->conf-no (nth 1 request))
(nth 2 request)
(nth 1 request)) ; conf-stat
(nth 2 request) ; first-local
(nth 1 request)
(+ lyskom-fetch-map-nos (nth 2 request))
(nth 3 request)
(nth 1 request) ; conf-stat
(nth 2 request) ; first-local
(nth 3 request) ; membership
((eq (car request) 'MARKS)
(initiate-get-marks 'prefetch 'lyskom-prefetch-marks-handler queue))
......@@ -558,15 +559,18 @@ Put the requests on QUEUE."
(defun lyskom-prefetch-membership-handler (memberships pers-no queue)
"Handle the return of the membership prefetch call."
(let ((list (listify-vector memberships)))
(let ((size (length memberships))
(i 0))
(lyskom-add-membership-to-membership memberships)
(while list
(if (lyskom-visible-membership (car list))
(lyskom-prefetch-map (membership->conf-no (car list))
(1+ (membership->last-text-read (car list)))
(car list)
(setq list (cdr list)))
(while (< i size)
(let ((membership (aref memberships i)))
(if (lyskom-visible-membership membership)
(lyskom-prefetch-map (membership->conf-no membership)
(1+ (membership->last-text-read
(++ i))
(if (and (numberp lyskom-membership-is-read)
(< (length memberships) lyskom-fetch-membership-length))
......@@ -656,6 +656,7 @@ to see, set of call."
(make-local-variable 'lyskom-other-clients-user-areas)
(make-local-variable 'lyskom-output-queues)
(make-local-variable 'lyskom-pending-calls)
(make-local-variable 'lyskom-pending-prefetch)
(make-local-variable 'lyskom-pers-cache)
(make-local-variable 'lyskom-pers-no)
(make-local-variable 'lyskom-prefetch-conf-tresh)
......@@ -84,7 +84,9 @@ Note that this function must not be called asynchronously."
(run-hooks 'lyskom-view-text-hook)
(setq start (point-max))
;; Use a marker, because the buffer may lose data
;; at the top if kom-max-buffer-size is set.
(setq start (point-max-marker))
(lyskom-format-insert "%#1n "
(lyskom-print-date-and-time (text-stat->creation-time
......@@ -114,6 +116,7 @@ Note that this function must not be called asynchronously."
(not (lyskom-face-default-p 'kom-first-line-face)))
start end '(face kom-first-line-face)))
(set-marker start nil)
;; All recipients and other header lines.
Supports Markdown
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