diff options
| -rw-r--r-- | lisp/calendar/appt.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 002aec878ca..0c911ca8b7d 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -449,11 +449,10 @@ NEW-TIME is a string giving the date." (same-window-p (buffer-name appt-disp-buf))) ;; By default, split the bottom window and use the lower part. (appt-select-lowest-window) - (split-window)) - (pop-to-buffer appt-disp-buf)) - (setq mode-line-format - (concat "-------------------- Appointment in " - min-to-app " minutes. " new-time " %-")) + (select-window (split-window))) + (switch-to-buffer appt-disp-buf)) + (calendar-set-mode-line + (format " Appointment in %s minutes. %s " min-to-app new-time)) (erase-buffer) (insert appt-msg) (shrink-window-if-larger-than-buffer (get-buffer-window appt-disp-buf t)) |