mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-04 08:47:11 +00:00
(generate-calendar-window): When we don't call `fit-window-to-buffer',
make sure the top line is fully visible.
This commit is contained in:
parent
3a17d6cc19
commit
317545188a
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user