Commit 221419dd authored by David Byers's avatar David Byers
Browse files

Update name of conference in mship-edit buffer when receiving change name async message

parent a17ea90d
2001-04-25 David Byers <davby@ida.liu.se>
* async.el (lyskom-parse-async): Update name of conference in
kom-handle-membership buffer when async name change happens.
Thu Apr 26 13:10:48 2001 Johan Sundstrm <jhs@idonex.se> Thu Apr 26 13:10:48 2001 Johan Sundstrm <jhs@idonex.se>
* commands1.el (lyskom-get-least-used-mark-types-alist): Bugfix; * commands1.el (lyskom-get-least-used-mark-types-alist): Bugfix;
......
...@@ -113,7 +113,11 @@ this function shall be with current-buffer the BUFFER." ...@@ -113,7 +113,11 @@ this function shall be with current-buffer the BUFFER."
'name-has-changed-to-name-r 'name-has-changed-to-name-r
old-name old-name
new-name new-name
(lyskom-default-button 'conf conf-no))))))) (lyskom-default-button 'conf conf-no))))
;; Update in the mship-edit buffer
(lp--maybe-update-entry-for-conf conf-no))))
((eq msg-no 6) ;i_am_on - something is moving ((eq msg-no 6) ;i_am_on - something is moving
(let ((info (lyskom-parse-who-info))) (let ((info (lyskom-parse-who-info)))
......
...@@ -371,7 +371,8 @@ only recomputed if the window width changes." ...@@ -371,7 +371,8 @@ only recomputed if the window width changes."
(if (lp--entry->selected entry) (if (lp--entry->selected entry)
(lp--entry-set-background entry (lyskom-face-background-name 'kom-mark-face)) (lp--entry-set-background entry (lyskom-face-background-name 'kom-mark-face))
(lp--entry-set-background entry nil))))) (lp--entry-set-background entry nil)))
))
(defun lp--format-entry-expansion (conf-stat defer-info) (defun lp--format-entry-expansion (conf-stat defer-info)
...@@ -1449,8 +1450,8 @@ With prefix arg, contract only those that were created by self." ...@@ -1449,8 +1450,8 @@ With prefix arg, contract only those that were created by self."
(def-kom-command kom-handle-membership () (def-kom-command kom-handle-membership ()
"Pop up a buffer to manage memberships in" "Pop up a buffer to manage memberships in"
(interactive) (interactive)
(set-buffer (lp--create-buffer)) (let ((kom-deferred-printing nil))
(lyskom-wait-queue 'deferred) (set-buffer (lp--create-buffer)))
(lp--mode) (lp--mode)
(lp--first-entry)) (lp--first-entry))
......
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