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.
This commit is contained in:
parent
c5f3702cf6
commit
dd57a31283
|
@ -3060,10 +3060,13 @@ L Timeline for current buffer # List stuck projects (!=configure)
|
||||||
"Fit the window to the buffer size."
|
"Fit the window to the buffer size."
|
||||||
(and (memq org-agenda-window-setup '(reorganize-frame))
|
(and (memq org-agenda-window-setup '(reorganize-frame))
|
||||||
(fboundp 'fit-window-to-buffer)
|
(fboundp 'fit-window-to-buffer)
|
||||||
(org-fit-window-to-buffer
|
(if (and (= (cdr org-agenda-window-frame-fractions) 1.0)
|
||||||
nil
|
(= (car org-agenda-window-frame-fractions) 1.0))
|
||||||
(floor (* (frame-height) (cdr org-agenda-window-frame-fractions)))
|
(delete-other-windows)
|
||||||
(floor (* (frame-height) (car org-agenda-window-frame-fractions))))))
|
(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-cmd nil)
|
||||||
(defvar org-agenda-overriding-cmd nil)
|
(defvar org-agenda-overriding-cmd nil)
|
||||||
|
|
Loading…
Reference in New Issue