From: Glenn Morris <rgm@gnu.org>
Date: Thu, 13 May 2004 00:18:15 +0000 (+0000)
Subject: (appt-disp-window): Use `calendar-set-mode-line' for a centered
X-Git-Tag: ttn-vms-21-2-B4~6251
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b316424bf02d89d2f5018ca7a55db2897f0daf6;p=emacs.git

(appt-disp-window): Use `calendar-set-mode-line' for a centered
mode-line.

Takaaki Ota  <Takaaki.Ota@am.sony.com>:
(appt-disp-window): Do not split window excessively when
`split-height-threshold' is low.
---

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))