From: yoichi <yoichi>
Date: Fri, 9 Nov 2001 11:46:30 +0000 (+0000)
Subject: Fix inconsistency with docstring.
X-Git-Tag: liece-2_0_0-pre1~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e46d951b3f38d6410f44f5ac1a22e8d41e1a7edc;p=elisp%2Fliece.git

Fix inconsistency with docstring.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3753336..c7796da 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-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
--- 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
--- 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.