449 |
(same-window-p (buffer-name appt-disp-buf))) |
(same-window-p (buffer-name appt-disp-buf))) |
450 |
;; By default, split the bottom window and use the lower part. |
;; By default, split the bottom window and use the lower part. |
451 |
(appt-select-lowest-window) |
(appt-select-lowest-window) |
452 |
(split-window)) |
(select-window (split-window))) |
453 |
(pop-to-buffer appt-disp-buf)) |
(switch-to-buffer appt-disp-buf)) |
454 |
(setq mode-line-format |
(calendar-set-mode-line |
455 |
(concat "-------------------- Appointment in " |
(format " Appointment in %s minutes. %s " min-to-app new-time)) |
|
min-to-app " minutes. " new-time " %-")) |
|
456 |
(erase-buffer) |
(erase-buffer) |
457 |
(insert appt-msg) |
(insert appt-msg) |
458 |
(shrink-window-if-larger-than-buffer (get-buffer-window appt-disp-buf t)) |
(shrink-window-if-larger-than-buffer (get-buffer-window appt-disp-buf t)) |