From 5175efa620e8957ed5fe3eedc6325c368b30da22 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Tue, 14 Oct 2003 02:07:28 +0000 Subject: [PATCH 1/1] * riece-layout.el (riece-reconfigure-windows-predicate): Simplified. --- lisp/ChangeLog | 4 ++++ lisp/riece-layout.el | 10 ++-------- 2 files changed, 6 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4ef0bc2..a6c7568 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2003-10-14 Daiki Ueno + + * riece-layout.el (riece-reconfigure-windows-predicate): Simplified. + 2003-10-13 Daiki Ueno * Riece: Version 0.1.3 released. diff --git a/lisp/riece-layout.el b/lisp/riece-layout.el index 469235b..44d1576 100644 --- a/lisp/riece-layout.el +++ b/lisp/riece-layout.el @@ -128,14 +128,8 @@ This function is used by \"default\" layout." (defun riece-reconfigure-windows-predicate () "Return t, if window reconfiguration is needed. This function is used by \"default\" layout." - ;; Check whether there is a buffer which belongs to Riece is visible. - (let ((buffers riece-buffer-list)) - (catch 'found - (while buffers - (if (and (buffer-live-p (car buffers)) - (get-buffer-window (car buffers))) - (throw 'found t) - (setq buffers (cdr buffers))))))) + (memq (window-buffer (selected-window)) + riece-buffer-list)) (defun riece-configure-windows-top (&optional plist) "Candidate of `riece-configure-windows-function'. -- 2.25.1