From 3b316424bf02d89d2f5018ca7a55db2897f0daf6 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 13 May 2004 00:18:15 +0000 Subject: [PATCH] (appt-disp-window): Use `calendar-set-mode-line' for a centered mode-line. Takaaki Ota : (appt-disp-window): Do not split window excessively when `split-height-threshold' is low. --- lisp/calendar/appt.el | 9 ++++----- 1 file 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)) -- 2.39.2