From b8e6ca4d123b1378cf2c68b6e4b05a6bc5da6be3 Mon Sep 17 00:00:00 2001 From: bg66 Date: Sun, 11 Aug 2002 12:02:53 +0000 Subject: [PATCH] * liece-window.el (liece-configure-windows): Set `liece-channel-buffer' to nil when `liece-current-chat-partner' or `liece-current-channel' is nil. (Suggested by Kazushige Maeda .) --- lisp/ChangeLog | 5 +++++ lisp/liece-window.el | 9 ++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9b238d1..2ea63d6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2002-08-11 OHASHI Akira + * liece-window.el (liece-configure-windows): Set + `liece-channel-buffer' to nil when `liece-current-chat-partner' or + `liece-current-channel' is nil. + (Suggested by Kazushige Maeda .) + * liece-dcc.el (liece-dcc-dequeue-request): Do nothing when `liece-dcc-requests' is empty. (liece-command-dcc-accept): Ditto. diff --git a/lisp/liece-window.el b/lisp/liece-window.el index 8720259..7a14138 100644 --- a/lisp/liece-window.el +++ b/lisp/liece-window.el @@ -194,11 +194,10 @@ (if (and (get 'liece-nick-buffer-mode 'hide) liece-nick-window-auto-hide) (setq liece-nick-buffer-mode nil)) - (if (not (liece-channel-last - (if (eq liece-command-buffer-mode 'chat) - liece-current-chat-partners - liece-current-channels))) - (setq liece-channel-buffer-mode nil)) + (unless (if (eq liece-command-buffer-mode 'chat) + liece-current-chat-partner + liece-current-channel) + (setq liece-channel-buffer-mode nil)) (setq situation `((channel-buffer-mode . ,liece-channel-buffer-mode) (nick-buffer-mode . ,liece-nick-buffer-mode) -- 1.7.10.4