Commit 3b316424 authored by Glenn Morris's avatar Glenn Morris

(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.
parent 68b872d2
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment