Commit 16e179ab authored by Peter Liljenberg's avatar Peter Liljenberg
Browse files

Lagade de trasiga datatypsanropen i lyskom-who-is-on-in-conference.

parent 95746c24
Thu Jul 23 15:03:10 1998 Peter Liljenberg <petli@lysator.liu.se>
* commands1.el (lyskom-who-is-on-check-membership-9):
(lyskom-who-is-on-check-membership-8): Anvnde fel datatyp.
* lyskom-buttons.el (lyskom-keyboard-menu):
(lyskom-button-menu):
(kom-menu-button-press): Skrev kom-menu-button-press som
......
......@@ -2293,9 +2293,10 @@ Uses Protocol A version 9 calls"
(len (length who-info-list))
(i 0)
(res nil))
(setq members (mapcar 'member->conf-no
(append (member-list->members members))))
(while (< i len)
(if (lyskom-conf-no-list-member (who-info->pers-no (aref who-info-list i))
members)
(if (memq (who-info->pers-no (aref who-info-list i)) members)
(setq res (cons (aref who-info-list i) res)))
(setq i (1+ i)))
res))
......@@ -2307,9 +2308,10 @@ Uses Protocol A version 9 calls"
(len (length who-info-list))
(i 0)
(res nil))
(setq members (mapcar 'member->conf-no
(append (member-list->members members))))
(while (< i len)
(if (lyskom-conf-no-list-member (dynamic-session-info->person (aref who-info-list i))
members)
(if (memq (dynamic-session-info->person (aref who-info-list i)) members)
(setq res (cons (aref who-info-list i) res)))
(setq i (1+ i)))
res))
......
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