Fix inconsistency with docstring.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a656a5..d405054 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-11-09  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * liece-vars.el (liece-truncate-partial-width-windows): Change
+       default value to fix the inconsistency with docstring.
+
+       * liece-window.el (liece-configure-windows): Ditto.
+
 2001-10-07   Daiki Ueno  <ueno@unixuser.org>
 
        * liece-misc.el (liece-subtract-time): New function.

diff --git a/lisp/liece-vars.el b/lisp/liece-vars.el
index 2ef1c1e..3e74fb9 100644 (file)
--- a/lisp/liece-vars.el
+++ b/lisp/liece-vars.el
@@ -65,7 +65,7 @@
   :type 'integer
   :group 'liece-look)
 
-(defcustom liece-truncate-partial-width-windows t
+(defcustom liece-truncate-partial-width-windows nil
   "If non-nil, truncate lines in splitting windows such as others buffer."
   :type 'boolean
   :group 'liece-look)

diff --git a/lisp/liece-window.el b/lisp/liece-window.el
index 5ae23c8..2027525 100644 (file)
--- a/lisp/liece-window.el
+++ b/lisp/liece-window.el
@@ -214,8 +214,10 @@
                   (and predicate
                        (liece-functionp predicate)
                        (funcall predicate))))
-      (setq truncate-partial-width-windows
-           (not liece-truncate-partial-width-windows))
+      (if (not (eq liece-truncate-partial-width-windows
+                  truncate-partial-width-windows))
+         (setq truncate-partial-width-windows
+               liece-truncate-partial-width-windows))
       (if liece-use-full-window (delete-other-windows))
       (save-excursion
        (switch-to-buffer liece-command-buffer) ;; u-mu.