Mercurial > emacs
changeset 55559:a4d697f046db
(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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 13 May 2004 00:18:15 +0000 |
| parents | 0ac980237ad3 |
| children | f262795a9004 |
| files | lisp/calendar/appt.el |
| diffstat | 1 files changed, 4 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/appt.el Wed May 12 20:43:47 2004 +0000 +++ b/lisp/calendar/appt.el Thu May 13 00:18:15 2004 +0000 @@ -449,11 +449,10 @@ (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))