From: kaoru <kaoru>
Date: Fri, 22 Aug 2003 06:59:38 +0000 (+0000)
Subject: * riece-display.el (riece-configure-windows-top): Set
X-Git-Tag: riece-0_1_0~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c188d178561c50baafda100f6fbbcf5ab79fcf19;p=elisp%2Friece.git

* riece-display.el (riece-configure-windows-top): Set
`truncate-partial-width-windows' nil, when horizontal window
split.
---

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  <kaoru@kaisei.org>
+
+	* riece-display.el (riece-configure-windows-top): Set
+	`truncate-partial-width-windows' nil, when horizontal window
+	split.
+
 2003-08-21  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* 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)