From: yoichi <yoichi>
Date: Fri, 9 Nov 2001 11:44:10 +0000 (+0000)
Subject: Fix inconsistency with docstring.
X-Git-Tag: liece-1_4_7~20
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fliece.git;a=commitdiff_plain;h=7fadaa43faeda4290d854d53c0e57ca9548a70fa

Fix inconsistency with docstring.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a656a5..d405054 100644
--- 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
--- 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
--- 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.