From dd57a3128316544164ba3422c3e542a0ce558f86 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 25 Sep 2013 13:22:56 +0200 Subject: [PATCH] Honor user request for full-frame agenda window * lisp/org-agenda.el (org-agenda-fit-window-to-buffer): Enforce value 1.0 for minimum window height. --- lisp/org-agenda.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 8cfe858ff..0bfba27f0 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3060,10 +3060,13 @@ L Timeline for current buffer # List stuck projects (!=configure) "Fit the window to the buffer size." (and (memq org-agenda-window-setup '(reorganize-frame)) (fboundp 'fit-window-to-buffer) - (org-fit-window-to-buffer - nil - (floor (* (frame-height) (cdr org-agenda-window-frame-fractions))) - (floor (* (frame-height) (car org-agenda-window-frame-fractions)))))) + (if (and (= (cdr org-agenda-window-frame-fractions) 1.0) + (= (car org-agenda-window-frame-fractions) 1.0)) + (delete-other-windows) + (org-fit-window-to-buffer + nil + (floor (* (frame-height) (cdr org-agenda-window-frame-fractions))) + (floor (* (frame-height) (car org-agenda-window-frame-fractions))))))) (defvar org-cmd nil) (defvar org-agenda-overriding-cmd nil)