mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-08 09:09:19 +00:00
Code Issues Releases Activity

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

Browse Source 
make sure the top line is fully visible.
This commit is contained in:
Miles Bader 2000-11-22 09:06:14 +00:00
parent 3a17d6cc19
commit 317545188a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/calendar/calendar.el
View File

@ -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