diff options
| author | Glenn Morris <rgm@gnu.org> | 2004-05-13 00:18:15 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2004-05-13 00:18:15 +0000 |
| commit | 3b316424bf02d89d2f5018ca7a55db2897f0daf6 (patch) | |
| tree | d15e0131cfbc85c7dbfb9543d570e44a9b947904 /lisp | |
| parent | 68b872d2d3eb29a9ee331dba8b9fa173ac3dd29d (diff) | |
| download | emacs-3b316424bf02d89d2f5018ca7a55db2897f0daf6.tar.gz emacs-3b316424bf02d89d2f5018ca7a55db2897f0daf6.tar.bz2 emacs-3b316424bf02d89d2f5018ca7a55db2897f0daf6.zip | |
(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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calendar/appt.el | 9 |
1 files 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)) |