summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2013-09-25 13:22:56 +0200
committerCarsten Dominik <carsten.dominik@gmail.com>2013-09-25 13:22:56 +0200
commitdd57a3128316544164ba3422c3e542a0ce558f86 (patch)
treec93bec40e5bab493d73e80fac76969816ff562ad
parentc5f3702cf6edb5104277357ccd65f5d6b7de5941 (diff)
downloadorg-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.el11
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)