* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d96e9f6..82c7035 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)