projects / elisp / riece.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 31c67f4)
Fixed typo.
authorueno <ueno>
Thu, 2 Sep 2004 12:32:43 +0000 (12:32 +0000)
committerueno <ueno>
Thu, 2 Sep 2004 12:32:43 +0000 (12:32 +0000)
lisp/riece-naming.el patch | blob | history

diff --git a/lisp/riece-naming.el b/lisp/riece-naming.el
index 2ff492b..69cef4c 100644 (file)
--- a/lisp/riece-naming.el
+++ b/lisp/riece-naming.el
@@ -84,7 +84,7 @@
     ;; Remove nonexistent users.
     (setq pointer (riece-channel-users (riece-get-channel channel-name)))
     (while pointer
-      (unless (assq (car (car pointer)) users)
+      (unless (assoc (car (car pointer)) users)
        (riece-user-toggle-channel (car (car pointer)) channel-name nil)
        (riece-channel-toggle-user channel-name (car (car pointer)) nil))
       (setq pointer (cdr pointer)))