Mercurial > emacs
comparison lisp/calendar/calendar.el @ 33438:8b81b726f919
(generate-calendar-window): Use `fit-window-to-buffer'.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 13 Nov 2000 02:22:51 +0000 |
| parents | 4360c704c17f |
| children | 939d7e7181b6 |
comparison
equal
deleted
inserted
replaced
| 33437:368aab31cb8a | 33438:8b81b726f919 |
|---|---|
| 1796 (generate-calendar mon yr) | 1796 (generate-calendar mon yr) |
| 1797 (generate-calendar month year)) | 1797 (generate-calendar month year)) |
| 1798 (calendar-cursor-to-visible-date | 1798 (calendar-cursor-to-visible-date |
| 1799 (if today-visible today (list displayed-month 1 displayed-year))) | 1799 (if today-visible today (list displayed-month 1 displayed-year))) |
| 1800 (set-buffer-modified-p nil) | 1800 (set-buffer-modified-p nil) |
| 1801 (or (one-window-p t) | 1801 (unless (or (one-window-p t) |
| 1802 (/= (frame-width) (window-width)) | 1802 (/= (frame-width) (window-width))) |
| 1803 (shrink-window (- (window-height) 9))) | 1803 (fit-window-to-buffer)) |
| 1804 (sit-for 0) | 1804 (sit-for 0) |
| 1805 (and mark-holidays-in-calendar | 1805 (and mark-holidays-in-calendar |
| 1806 (mark-calendar-holidays) | 1806 (mark-calendar-holidays) |
| 1807 (sit-for 0)) | 1807 (sit-for 0)) |
| 1808 (unwind-protect | 1808 (unwind-protect |