Suppress "variable XXX bound but not referenced" warning.

[riece] / lisp / riece-naming.el

diff --git a/lisp/riece-naming.el b/lisp/riece-naming.el
index 97beb25..4aa774d 100644 (file)
--- a/lisp/riece-naming.el
+++ b/lisp/riece-naming.el
@@ -86,8 +86,7 @@
                        (cdr (car users)))
                  user-identity-list)
            users (cdr users)))
-    (riece-emit-signal 'user-list-changed
-                      (riece-make-identity channel-name riece-server-name))))
+    (riece-emit-signal 'user-list-changed channel-identity)))
 
 (provide 'riece-naming)