Fix the last change.
authorDaiki Ueno <ueno@unixuser.org>
Thu, 27 Oct 2011 08:13:13 +0000 (17:13 +0900)
committerDaiki Ueno <ueno@unixuser.org>
Thu, 27 Oct 2011 08:13:13 +0000 (17:13 +0900)
lisp/riece-commands.el

index e17b909..55a66a7 100644 (file)
        (pointer riece-current-channels)
        channels)
     (while pointer
        (pointer riece-current-channels)
        channels)
     (while pointer
-      (setq channels (riece-identity-assign-binding (car pointer) channels
-                                                   binding)
-           pointer (cdr pointer)))
+      (if (car pointer)
+         (setq channels (riece-identity-assign-binding (car pointer) channels
+                                                       binding)))
+      (setq pointer (cdr pointer)))
     (setq riece-current-channels channels)
     (riece-emit-signal 'channel-list-changed)))
 
     (setq riece-current-channels channels)
     (riece-emit-signal 'channel-list-changed)))