Commit 6de83b55 authored by David Byers's avatar David Byers
Browse files

Worked on kom-handle-membership.

Detailed changes:
> 	Keep membership buffer updated changing membership types:
> 	* reading.el (lyskom-insert-membership): Added calls to
> 	lp--update-buffer.
> 	(lyskom-replace-membership): Added calls to lp--update-buffer.
> 	(lyskom-remove-membership): Added calls to lp--update-buffer.
>
> 	* lyskom-rest.el (lyskom-check-go-to-conf): Added calls to
> 	lp--update-buffer.
>
> 	* commands2.el (kom-change-message-flag): Added calls to
> 	lp--update-buffer.
>
> 	* commands1.el (kom-add-self): Added calls to lp--update-buffer
> 	when de-passivating.
> 	(lyskom-sub-member): Added calls to lp--update-buffer.
>
parent eb4af24f
2003-07-30 David Byers <byers@lysator.liu.se>
Keep membership buffer updated changing membership types:
* reading.el (lyskom-insert-membership): Added calls to
lp--update-buffer.
(lyskom-replace-membership): Added calls to lp--update-buffer.
(lyskom-remove-membership): Added calls to lp--update-buffer.
* lyskom-rest.el (lyskom-check-go-to-conf): Added calls to
lp--update-buffer.
* commands2.el (kom-change-message-flag): Added calls to
lp--update-buffer.
* commands1.el (kom-add-self): Added calls to lp--update-buffer
when de-passivating.
(lyskom-sub-member): Added calls to lp--update-buffer.
* lyskom-rest.el (lyskom-get-holerith-list): Return list in
original order.
(lyskom-split-user-area): Don't reverse the list here.
......
......@@ -567,6 +567,7 @@ See `kom-membership-default-priority' and
(conf-stat->conf-no whereto)
(membership->type mship))
(lyskom-format-insert 'activate-mship-done whereto)
(lp--update-buffer (membership->conf-no mship))
(lyskom-fetch-start-of-map whereto mship))
((and mship (not (membership-type->invitation
......@@ -946,7 +947,8 @@ See `kom-unsubscribe-makes-passive'."
(when (= (conf-stat->conf-no conf) lyskom-current-conf)
(lyskom-leave-current-conf))
(read-list-delete-read-info (conf-stat->conf-no conf)
lyskom-to-do-list)))
lyskom-to-do-list)
(lp--update-buffer (conf-stat->conf-no conf))))
(t
(when self
(lyskom-prefetch-cancel-prefetch-map (conf-stat->conf-no conf)))
......
......@@ -3386,7 +3386,8 @@ are advisory; clients may ignore them."
(blocking-do 'set-membership-type
lyskom-pers-no
(uconf-stat->conf-no uconf-stat)
(membership->type mship)))))))
(membership->type mship)))
(lp--update-buffer (uconf-stat->conf-no uconf-stat))))))
......
......@@ -699,7 +699,8 @@ If CONF is nil, check the first conf on the to-do list."
'change-priority-for
t)
conf-stat (blocking-do 'get-conf-stat lyskom-pers-no)
(setq continue t)))
(setq continue t))
(lp--update-buffer (conf-stat->conf-no conf-stat)))
(progn
(let ((kom-unsubscribe-makes-passive nil))
(lyskom-sub-member (blocking-do 'get-conf-stat lyskom-pers-no)
......@@ -727,6 +728,7 @@ If CONF is nil, check the first conf on the to-do list."
(conf-stat->conf-no conf-stat)
(membership->type mship))
(lyskom-fetch-start-of-map conf-stat mship)
(lp--update-buffer (conf-stat->conf-no conf-stat))
(setq continue t))
(progn
(setq continue nil))))
......@@ -2239,7 +2241,7 @@ in lyskom-messages."
(let ((tmp (lyskom-get-holerith text t)))
(mapcar2 'cons
(lyskom-get-holerith-list (car tmp) t)
(lyskom-get-holerith-list (cdr tmp) t)))))
(lyskom-get-holerith-list (cdr tmp) t))))
(defun lyskom-format-x-kom/user-area-data (data)
(let* ((values (lyskom-get-holerith-assoc data t))
......
......@@ -664,7 +664,9 @@ entry priority"
nil)))
(when pos
(save-excursion
(goto-char (lp--entry->start-marker elem))
(goto-char (if elem
(lp--entry->start-marker elem)
lp--list-end-marker))
(lp--set-entry-list
(lp--add-to-list pos entry (lp--all-entries)))
(lp--print-entry entry)))))
......@@ -1505,9 +1507,11 @@ Entry to this mode runs lyskom-prioritize-mode-hook."
(lp--update-mode-line)
(setq buffer-read-only t)
(lyskom-use-local-map lp--mode-map)
(lyskom-add-hook 'lyskom-add-membership-hook
'lp--add-membership-callback
t)
;; I'm hard-coding these instead
;;
;; (lyskom-add-hook 'lyskom-add-membership-hook
;; 'lp--add-membership-callback
;; t)
;; (lyskom-add-hook 'lyskom-remove-membership-hook
;; 'lyskom-prioritize-remove-membership
;; t)
......
......@@ -132,7 +132,8 @@ lyskom-membership list then this item is not entered."
(save-excursion
(set-buffer lyskom-buffer)
(lyskom-do-insert-membership membership)
(lyskom-update-membership-positions)))
(lyskom-update-membership-positions)
(lp--update-buffer (membership->conf-no membership))))
(defun lyskom-replace-membership (membership)
"Find the membership for the same conference as MEMBERSHIP, and
......@@ -142,6 +143,7 @@ replace it with MEMBERSHIP into lyskom-membership."
(when (lyskom-try-get-membership (membership->conf-no membership) t)
(lyskom-do-remove-membership (membership->conf-no membership))
(lyskom-do-insert-membership membership)
(lp--update-buffer (membership->conf-no membership))
(lyskom-run-hook-with-args 'lyskom-replace-membership-hook
membership
lyskom-membership))))
......@@ -162,6 +164,7 @@ replace it with MEMBERSHIP into lyskom-membership."
(save-excursion
(set-buffer lyskom-buffer)
(lyskom-do-remove-membership conf-no)
(lp--update-buffer conf-no)
(lyskom-run-hook-with-args 'lyskom-remove-membership-hook
conf-no lyskom-membership)))
......
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