Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
81d7692c
Commit
81d7692c
authored
Jul 26, 1992
by
inge
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Part 1 in the great prefetch cleanup.
parent
a129c35a
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
47 additions
and
20 deletions
+47
-20
src/ChangeLog
src/ChangeLog
+14
-0
src/async.el
src/async.el
+2
-4
src/cache.el
src/cache.el
+1
-1
src/clienttypes.el
src/clienttypes.el
+0
-15
src/prefetch.el
src/prefetch.el
+30
-0
No files found.
src/ChangeLog
View file @
81d7692c
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
...
...
src/async.el
View file @
81d7692c
...
...
@@ -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
...
...
src/cache.el
View file @
81d7692c
...
...
@@ -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
...
...
src/clienttypes.el
View file @
81d7692c
...
...
@@ -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."
...
...
src/prefetch.el
View file @
81d7692c
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment