Mercurial > emacs

changeset 33438:8b81b726f919

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(generate-calendar-window): Use `fit-window-to-buffer'.
author Miles Bader <miles@gnu.org>
date Mon, 13 Nov 2000 02:22:51 +0000
parents 368aab31cb8a
children e4a8dd3227d7
files lisp/calendar/calendar.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Sun Nov 12 22:51:35 2000 +0000
+++ b/lisp/calendar/calendar.el	Mon Nov 13 02:22:51 2000 +0000
@@ -1798,9 +1798,9 @@
     (calendar-cursor-to-visible-date
      (if today-visible today (list displayed-month 1 displayed-year)))
     (set-buffer-modified-p nil)
-    (or (one-window-p t)
-        (/= (frame-width) (window-width))
-        (shrink-window (- (window-height) 9)))
+    (unless (or (one-window-p t)
+		(/= (frame-width) (window-width)))
+      (fit-window-to-buffer))
     (sit-for 0)
     (and mark-holidays-in-calendar
          (mark-calendar-holidays)