From 2a9f89bc6ae24d0409d161919aa0d7bf52e2e840 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 20 Nov 2004 01:01:50 +0000 Subject: [PATCH] * riece-display.el (riece-update-buffers): Check existence each buffer in riece-buffer-list. * riece.el (riece): Ditto. --- lisp/ChangeLog | 6 ++++++ lisp/riece-display.el | 7 ++++--- lisp/riece.el | 9 +++++---- 3 files changed, 15 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 62cb1ee..107b5f4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,11 @@ 2004-11-20 Daiki Ueno + * riece-display.el (riece-update-buffers): Check existence each + buffer in riece-buffer-list. + * riece.el (riece): Ditto. + +2004-11-20 Daiki Ueno + * riece.el: Bind reporter-prompt-for-summary-p. 2004-11-19 Daiki Ueno diff --git a/lisp/riece-display.el b/lisp/riece-display.el index c9f5b3c..f5f3f76 100644 --- a/lisp/riece-display.el +++ b/lisp/riece-display.el @@ -383,9 +383,10 @@ Local to the buffer in `riece-buffer-list'.") (unless buffers (setq buffers riece-buffer-list)) (while buffers - (save-excursion - (set-buffer (car buffers)) - (run-hooks 'riece-update-buffer-functions)) + (if (buffer-live-p (car buffers)) + (save-excursion + (set-buffer (car buffers)) + (run-hooks 'riece-update-buffer-functions))) (setq buffers (cdr buffers))) (run-hooks 'riece-update-indicator-functions) (force-mode-line-update t) diff --git a/lisp/riece.el b/lisp/riece.el index 59e84ba..863ea8a 100644 --- a/lisp/riece.el +++ b/lisp/riece.el @@ -294,10 +294,11 @@ If optional argument CONFIRM is non-nil, ask which IRC server to connect." (lambda () (let ((buffers riece-buffer-list)) (while buffers - (if (eq (derived-mode-class - (with-current-buffer (car buffers) - major-mode)) - 'riece-dialogue-mode) + (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))) (setq buffers (cdr buffers)))))))) (switch-to-buffer riece-command-buffer) -- 1.7.10.4