From: ueno <ueno>
Date: Sat, 16 Aug 2003 21:44:16 +0000 (+0000)
Subject: (riece-command-previous-channel): Skip nil in
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a6961fb8bcc80fd93f1df552dc3673bf3871cf7b;p=elisp%2Friece.git

(riece-command-previous-channel): Skip nil in
riece-current-channels.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bfb6fb9..24c3802 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-17  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-commands.el (riece-command-previous-channel): Skip nil in
+	riece-current-channels.
+
 2003-08-03  Daiki Ueno  <ueno@unixuser.org>
 
 	* Riece: Version 0.0.4 released.
diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 3442c5d..8b9b99d 100644
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -96,7 +96,8 @@
 	  (start riece-current-channels)
 	  channel)
       (while (and start (not (eq start pointer)))
-	(setq channel (car start))
+	(if (car start)
+	    (setq channel (car start)))
 	(setq start (cdr start)))
       (when (null channel)
 	(setq start (copy-sequence riece-current-channels))