From 58c66567dabdcb8a7c50975142efb972bea06fba Mon Sep 17 00:00:00 2001 From: bg66 Date: Thu, 14 Jun 2001 07:41:04 +0000 Subject: [PATCH] * liece-menu.el (liece-menu-channel-menu): Don't enable `liece-command-unread-channel' if `liece-channel-unread-list' is nil. (liece-menu-private-menu): Don't bind `liece-command-userhost'. * liece-window.el (liece-command-set-window-style): Run `liece-command-reconfigure-windows'. --- lisp/ChangeLog | 7 +++++++ lisp/liece-menu.el | 3 +-- lisp/liece-window.el | 3 ++- 3 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9042361..241969b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -5,6 +5,13 @@ * liece-handle.el (liece-handle-notice-message): Don't set `temp' to nil. + * liece-menu.el (liece-menu-channel-menu): Don't enable + `liece-command-unread-channel' if `liece-channel-unread-list' is nil. + (liece-menu-private-menu): Don't bind `liece-command-userhost'. + + * liece-window.el (liece-command-set-window-style): Run + `liece-command-reconfigure-windows'. + 2001-06-09 OHASHI Akira * liece-handle.el (liece-handle-privmsg-message): Don't compare when diff --git a/lisp/liece-menu.el b/lisp/liece-menu.el index 03c4368..20e769d 100644 --- a/lisp/liece-menu.el +++ b/lisp/liece-menu.el @@ -86,7 +86,6 @@ ["IsON" liece-command-ison (liece-server-opened)] ["Register friends" liece-command-activate-friends t] ["Unregister friends" liece-command-deactivate-friends t] - ["Display userhost" liece-command-userhost (liece-server-opened)] ["Ignore nicks / regexp" liece-command-kill t] ["Compose mail" liece-command-mail-compose t])) @@ -122,7 +121,7 @@ ["Go to previous channel" liece-command-previous-channel (or liece-current-channels liece-current-chat-partners)] ["Go to unread channel" liece-command-unread-channel - (or liece-current-channels liece-current-chat-partners)] + liece-channel-unread-list] ["Rotate left channels" liece-command-pop (or liece-current-channels liece-current-chat-partners)] ["Rotate right channels" liece-command-push diff --git a/lisp/liece-window.el b/lisp/liece-window.el index 5ae23c8..46ef9b7 100644 --- a/lisp/liece-window.el +++ b/lisp/liece-window.el @@ -161,7 +161,8 @@ (liece-minibuffer-completing-read "Window style: " (list-to-alist styles) nil t nil nil liece-window-current-style)))) - (liece-window-load-style-file style)) + (liece-window-load-style-file style) + (liece-command-reconfigure-windows)) (defun liece-command-reload-window-style () (interactive) -- 1.7.10.4