From 4e209af2b937e48382b37d2425572eebb31abd45 Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 2 Sep 2004 12:32:43 +0000 Subject: [PATCH] Fixed typo. --- lisp/riece-naming.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/riece-naming.el b/lisp/riece-naming.el index 2ff492b..69cef4c 100644 --- 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))) -- 1.7.10.4