From 1e3ca038f28af0a3ff1176a330ed7f964f2ec799 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 30 May 2003 00:00:43 +0000 Subject: [PATCH] * riece-user.el (riece-user-toggle-channel): Use member instead of memq. --- lisp/riece-user.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/riece-user.el b/lisp/riece-user.el index e584b74..28d061c 100644 --- a/lisp/riece-user.el +++ b/lisp/riece-user.el @@ -125,7 +125,7 @@ away status, respectively." (let* ((user (riece-get-user (or name (riece-current-nickname)))) (channels (riece-user-channels user))) (if flag - (unless (memq channel channels) + (unless (member channel channels) (riece-user-set-channels user (cons channel channels))) (if (setq channel (car (member channel channels))) (riece-user-set-channels user (delq channel channels)))))) -- 1.7.10.4