From ee13da9d5673a2634698f0ed5473ab231588d810 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Tue, 31 Aug 2004 06:43:21 +0000
Subject: [PATCH] * riece.el (riece-dialogue-mode): Make
 truncate-partial-width-windows local to channel buffers and
 set it to nil. * riece-layout.el (riece-configure-windows):
 Don't affect truncate-partial-width-windows.
 (riece-configure-windows-top): Ditto. * riece-options.el
 (riece-truncate-partial-width-windows): Abolished unused
 user option.

---
 lisp/ChangeLog        |   11 +++++++++++
 lisp/riece-layout.el  |   12 +++---------
 lisp/riece-options.el |    5 -----
 lisp/riece.el         |    4 +++-
 4 files changed, 17 insertions(+), 15 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d96e9f6..82c7035 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2004-08-31  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece.el (riece-dialogue-mode): Make
+	truncate-partial-width-windows local to channel buffers and set it
+	to nil.
+	* riece-layout.el (riece-configure-windows): Don't affect
+	truncate-partial-width-windows.
+	(riece-configure-windows-top): Ditto.
+	* riece-options.el (riece-truncate-partial-width-windows):
+	Abolished unused user option.
+
 2004-08-30  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-options.el (riece-window-center-line): New user option.
diff --git a/lisp/riece-layout.el b/lisp/riece-layout.el
index ca463dc..08441e3 100644
--- a/lisp/riece-layout.el
+++ b/lisp/riece-layout.el
@@ -172,11 +172,7 @@ This function is used by \"default\" layout."
 		(set-window-buffer (split-window)
 				   riece-channel-buffer)
 		(set-window-buffer rest-window
-				   riece-command-buffer))))
-	  (with-current-buffer riece-channel-buffer
-	    (setq truncate-partial-width-windows nil))
-	  (with-current-buffer riece-others-buffer
-	    (setq truncate-partial-width-windows nil)))
+				   riece-command-buffer)))))
       (if (eq vpos 'bottom)
 	  (progn
 	    (set-window-buffer (selected-window)
@@ -227,8 +223,7 @@ 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))
-	    (setq truncate-partial-width-windows nil)))
+	    (shrink-window-horizontally (- (window-width) user-list-width))))
 	 ;; only user-list
 	 (show-user-list
 	  (set-window-buffer (selected-window) riece-user-list-buffer))
@@ -243,8 +238,7 @@ PLIST accept :command-height, :user-list-width, and :channel-list-width."
 	  (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))
-	  (setq truncate-partial-width-windows nil))
+	  (shrink-window-horizontally (- (window-width) channel-list-width)))
       (set-window-buffer (selected-window) riece-dialogue-buffer))
     (riece-set-window-points)
     (select-window (or (get-buffer-window buffer)
diff --git a/lisp/riece-options.el b/lisp/riece-options.el
index ebabff0..7fc2e48 100644
--- a/lisp/riece-options.el
+++ b/lisp/riece-options.el
@@ -60,11 +60,6 @@
   :prefix "riece-"
   :group 'riece)
 
-(defcustom riece-truncate-partial-width-windows nil
-  "If non-nil, truncate lines in splitting windows such as others buffer."
-  :type 'boolean
-  :group 'riece-looks)
-
 (defcustom riece-use-full-window t
   "If non-nil, whole Emacs window is used to display dialogue."
   :type 'boolean
diff --git a/lisp/riece.el b/lisp/riece.el
index 519e996..aa7d95e 100644
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -402,6 +402,7 @@ Instead, these commands are available:
   (kill-all-local-variables)
   (make-local-variable 'riece-freeze)
   (make-local-variable 'riece-freeze-indicator)
+  (make-local-variable 'truncate-partial-width-windows)
   (setq riece-freeze riece-default-freeze
 	riece-away-indicator "-"
 	riece-operator-indicator "-"
@@ -415,7 +416,8 @@ Instead, these commands are available:
 	   riece-freeze-indicator
 	   " "
 	   riece-channel-list-indicator " "))
-	buffer-read-only t)
+	buffer-read-only t
+	truncate-partial-width-windows nil)
   (riece-simplify-mode-line-format)
   (use-local-map riece-dialogue-mode-map)
   (buffer-disable-undo)
-- 
1.7.10.4