Commit 92dcc984 authored by Björn Brenander's avatar Björn Brenander
Browse files

kom-who-is-present-in-conference and kom-who-is-on-in-conference now

suggests the current conference.
parent a5eed3e2
......@@ -2712,7 +2712,17 @@ If the prefix is 0, all visible sessions are shown."
(interactive "P")
(let ((conf-stat
(lyskom-read-conf-stat (lyskom-get-string 'who-is-on-in-what-conference)
'(all) nil nil t)))
'(all) nil
(let ((ccn
(if (or (null lyskom-current-conf)
(zerop lyskom-current-conf))
""
(conf-stat->name
(blocking-do 'get-conf-stat
lyskom-current-conf)))))
(if ccn
(cons ccn 0)
"")) t)))
(condition-case nil
(if (lyskom-have-feature dynamic-session-info)
(lyskom-who-is-on-9 arg conf-stat)
......@@ -2735,7 +2745,17 @@ If the prefix is 0, all visible sessions are shown."
(interactive "P")
(let ((conf-stat
(lyskom-read-conf-stat (lyskom-get-string 'who-is-present-in-what-conference)
'(all) nil nil t)))
'(all) nil
(let ((ccn
(if (or (null lyskom-current-conf)
(zerop lyskom-current-conf))
""
(conf-stat->name
(blocking-do 'get-conf-stat
lyskom-current-conf)))))
(if ccn
(cons ccn 0)
"")) t)))
(condition-case nil
(if (lyskom-have-feature dynamic-session-info)
(lyskom-who-is-on-9 arg conf-stat t)
......
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