diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2013-09-25 13:22:56 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2013-09-25 13:22:56 +0200 |
commit | dd57a3128316544164ba3422c3e542a0ce558f86 (patch) | |
tree | c93bec40e5bab493d73e80fac76969816ff562ad | |
parent | c5f3702cf6edb5104277357ccd65f5d6b7de5941 (diff) | |
download | org-mode-dd57a3128316544164ba3422c3e542a0ce558f86.tar.gz |
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.
-rw-r--r-- | lisp/org-agenda.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 8cfe858..0bfba27 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) |