Commit 31754518 authored by Miles Bader's avatar Miles Bader
Browse files

(generate-calendar-window): When we don't call `fit-window-to-buffer',

make sure the top line is fully visible.
parent 3a17d6cc
......@@ -1798,8 +1798,11 @@ Or, for optional MON, YR."
(calendar-cursor-to-visible-date
(if today-visible today (list displayed-month 1 displayed-year)))
(set-buffer-modified-p nil)
(unless (or (one-window-p t)
(/= (frame-width) (window-width)))
(if (or (one-window-p t) (/= (frame-width) (window-width)))
;; Don't mess with the window size, but ensure that the first
;; line is fully visible
(set-window-vscroll nil 0)
;; Adjust the window to exactly fit the displayed calendar
(fit-window-to-buffer))
(sit-for 0)
(and mark-holidays-in-calendar
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment