From fbd77cd0ec0a7904b8eeb34abb13dc50220246e7 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sun, 7 Dec 2014 20:38:11 +0000 Subject: [PATCH] update syncgroups parser for new server no attempt at backwards compatibility, sorry --- squeeze.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/squeeze.el b/squeeze.el index 7dbf120..a255c60 100644 --- a/squeeze.el +++ b/squeeze.el @@ -332,8 +332,9 @@ (let ((syncgroups squeeze-syncgroups) (seen)) (while syncgroups - (let ((names (getf syncgroups :names)) - (members (split-string (getf syncgroups :members) ","))) + (let ((names (getf syncgroups :sync_member_names)) + ;; new server version has sync_members and sync_member_names + (members (split-string (getf syncgroups :sync_members) ","))) (insert (propertize names 'face 'squeeze-syncgroup-face) "\n") (dolist (member members) (let ((player (squeeze-find-player member))) -- 2.39.5