From e46d951b3f38d6410f44f5ac1a22e8d41e1a7edc Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 9 Nov 2001 11:46:30 +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 3753336..c7796da 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-11-03 OHASHI Akira * 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. -- 1.7.10.4