From 5ddabec3394f8665acfff952dea8ea2725bdcd9c Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 21 Nov 2004 00:22:50 +0000 Subject: [PATCH] * riece.el (riece): Remove nonexistent buffer from riece-buffer-list when running riece-shrink-buffer. --- lisp/ChangeLog | 5 +++++ lisp/riece.el | 13 +++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8fb4c3a..e34a940 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-21 Daiki Ueno + + * riece.el (riece): Remove nonexistent buffer from + riece-buffer-list when running riece-shrink-buffer. + 2004-11-20 Daiki Ueno * riece-display.el (riece-update-buffers): Check existence of each diff --git a/lisp/riece.el b/lisp/riece.el index 1d49190..51e2d59 100644 --- a/lisp/riece.el +++ b/lisp/riece.el @@ -294,12 +294,13 @@ If optional argument CONFIRM is non-nil, ask which IRC server to connect." (lambda () (let ((buffers riece-buffer-list)) (while buffers - (if (and (buffer-live-p (car buffers)) - (eq (derived-mode-class - (with-current-buffer (car buffers) - major-mode)) - 'riece-dialogue-mode)) - (riece-shrink-buffer (car buffers))) + (if (buffer-live-p (car buffers)) + (if (eq (derived-mode-class + (with-current-buffer (car buffers) + major-mode)) + 'riece-dialogue-mode) + (riece-shrink-buffer (car buffers))) + (deql (car buffers) riece-buffer-list)) (setq buffers (cdr buffers)))))))) (switch-to-buffer riece-command-buffer) (riece-display-connect-signals) -- 1.7.10.4