From a6961fb8bcc80fd93f1df552dc3673bf3871cf7b Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 16 Aug 2003 21:44:16 +0000 Subject: [PATCH] (riece-command-previous-channel): Skip nil in riece-current-channels. --- lisp/ChangeLog | 5 +++++ lisp/riece-commands.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * riece-commands.el (riece-command-previous-channel): Skip nil in + riece-current-channels. + 2003-08-03 Daiki Ueno * 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)) -- 1.7.10.4