From c188d178561c50baafda100f6fbbcf5ab79fcf19 Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 22 Aug 2003 06:59:38 +0000 Subject: [PATCH] * riece-display.el (riece-configure-windows-top): Set `truncate-partial-width-windows' nil, when horizontal window split. --- lisp/ChangeLog | 6 ++++++ lisp/riece-display.el | 8 +++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c97451b..b26804e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2003-08-22 TAKAHASHI Kaoru + + * riece-display.el (riece-configure-windows-top): Set + `truncate-partial-width-windows' nil, when horizontal window + split. + 2003-08-21 TAKAHASHI Kaoru * riece-display.el (riece-configure-windows-top): Change diff --git a/lisp/riece-display.el b/lisp/riece-display.el index 31a3bf6..964de45 100644 --- a/lisp/riece-display.el +++ b/lisp/riece-display.el @@ -137,7 +137,8 @@ PLIST accept :command-height, :user-list-width, and :channel-list-width." (set-window-buffer (selected-window) riece-channel-buffer) (set-window-buffer user-list-window riece-user-list-buffer) (select-window user-list-window) - (shrink-window-horizontally (- (window-width) user-list-width)))) + (shrink-window-horizontally (- (window-width) user-list-width)) + (setq truncate-partial-width-windows nil))) ;; only user-list (show-user-list (set-window-buffer (selected-window) riece-user-list-buffer)) @@ -151,8 +152,9 @@ PLIST accept :command-height, :user-list-width, and :channel-list-width." (let ((channel-list-window (split-window (selected-window) nil t))) (set-window-buffer (selected-window) riece-others-buffer) (set-window-buffer channel-list-window riece-channel-list-buffer) - (select-window channel-list-window) - (shrink-window-horizontally (- (window-width) channel-list-width))) + (select-window channel-list-window) + (shrink-window-horizontally (- (window-width) channel-list-width)) + (setq truncate-partial-width-windows nil)) (set-window-buffer (selected-window) riece-dialogue-buffer)) (riece-set-window-points) (select-window (or (get-buffer-window buffer) -- 1.7.10.4