From 7fadaa43faeda4290d854d53c0e57ca9548a70fa Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 9 Nov 2001 11:44:10 +0000 Subject: [PATCH] Fix inconsistency with docstring. --- lisp/ChangeLog | 7 +++++++ lisp/liece-vars.el | 2 +- lisp/liece-window.el | 6 ++++-- 3 files changed, 12 insertions(+), 3 deletions(-) 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 + + * 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 * 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. -- 1.7.10.4