401 |
(concat "-------------------- Appointment in " |
(concat "-------------------- Appointment in " |
402 |
min-to-app " minutes. " new-time " %-")) |
min-to-app " minutes. " new-time " %-")) |
403 |
(erase-buffer) |
(erase-buffer) |
404 |
(insert-string appt-msg) |
(insert appt-msg) |
405 |
(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)) |
406 |
(set-buffer-modified-p nil) |
(set-buffer-modified-p nil) |
407 |
(raise-frame (selected-frame)) |
(raise-frame (selected-frame)) |