Fix inconsistency with docstring.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3753336..c7796da 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-11-03  OHASHI Akira  <bg66@koka-in.org>
 
         * liece-emacs.el (liece-emacs-unread-mark): Use regexp-quote.

diff --git a/lisp/liece-vars.el b/lisp/liece-vars.el
index 4033350..ad7ef50 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 46ef9b7..8720259 100644 (file)
--- a/lisp/liece-window.el
+++ b/lisp/liece-window.el
@@ -215,8 +215,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.