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

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


Takaaki Ota  <>:
(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.
(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))
(format " Appointment in %s minutes. %s " min-to-app new-time))
(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