Mercurial > emacs
comparison lisp/calendar/calendar.el @ 78464:7819402a9963
Use window-full-width-p instead of comparing frame-width and
window-width.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Wed, 08 Aug 2007 05:51:36 +0000 |
| parents | 93e11478c954 |
| children | 974a828870fe e5a68f18fcb9 |
comparison
equal
deleted
inserted
replaced
| 78463:ad7b04a38ce4 | 78464:7819402a9963 |
|---|---|
| 2076 (if today-visible today (list displayed-month 1 displayed-year))) | 2076 (if today-visible today (list displayed-month 1 displayed-year))) |
| 2077 (set-buffer-modified-p nil) | 2077 (set-buffer-modified-p nil) |
| 2078 ;; Don't do any window-related stuff if we weren't called from a | 2078 ;; Don't do any window-related stuff if we weren't called from a |
| 2079 ;; window displaying the calendar | 2079 ;; window displaying the calendar |
| 2080 (when in-calendar-window | 2080 (when in-calendar-window |
| 2081 (if (or (one-window-p t) (/= (frame-width) (window-width))) | 2081 (if (or (one-window-p t) (not (window-full-width-p))) |
| 2082 ;; Don't mess with the window size, but ensure that the first | 2082 ;; Don't mess with the window size, but ensure that the first |
| 2083 ;; line is fully visible | 2083 ;; line is fully visible |
| 2084 (set-window-vscroll nil 0) | 2084 (set-window-vscroll nil 0) |
| 2085 ;; Adjust the window to exactly fit the displayed calendar | 2085 ;; Adjust the window to exactly fit the displayed calendar |
| 2086 (fit-window-to-buffer nil nil calendar-minimum-window-height)) | 2086 (fit-window-to-buffer nil nil calendar-minimum-window-height)) |