From aad0ffa5b6f4be5c83f03f0cf0b8c8f568e196b7 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 14 Jan 2006 12:58:25 +0000 Subject: [PATCH] * riece-display.el (riece-part-channel): Emit 'channel-list-changed signal. --- lisp/ChangeLog | 5 +++++ lisp/riece-display.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a680706..01bb04c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-01-14 Daiki Ueno + + * riece-display.el (riece-part-channel): Emit + 'channel-list-changed signal. + 2005-12-29 Daiki Ueno * riece-alias.el (riece-alias-alternate-separator): Reverted the diff --git a/lisp/riece-display.el b/lisp/riece-display.el index be7952f..fbead8b 100644 --- a/lisp/riece-display.el +++ b/lisp/riece-display.el @@ -483,10 +483,12 @@ Local to the buffer in `riece-buffer-list'.") (defun riece-part-channel (identity) (let ((pointer (riece-identity-member identity riece-current-channels))) - (if pointer - (setcar pointer nil)) + (unless pointer + (error "No such channel!")) + (setcar pointer nil) (if (riece-identity-equal identity riece-current-channel) - (riece-switch-to-nearest-channel pointer)) + (riece-switch-to-nearest-channel pointer) + (riece-emit-signal 'channel-list-changed)) (funcall riece-buffer-dispose-function (riece-channel-buffer identity)))) (defun riece-redisplay-buffers (&optional force) -- 1.7.10.4