Mercurial > emacs
changeset 23777:5d10105c2906
(appt-disp-window): Use pop-to-buffer,
to support special-display and same-window features.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 29 Nov 1998 00:32:50 +0000 |
| parents | 529965d3c653 |
| children | 9cee50f0ec56 |
| files | lisp/calendar/appt.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/appt.el Sat Nov 28 22:16:09 1998 +0000 +++ b/lisp/calendar/appt.el Sun Nov 29 00:32:50 1998 +0000 @@ -391,12 +391,14 @@ (this-window (selected-window)) (appt-disp-buf (set-buffer (get-buffer-create appt-buffer-name)))) - (appt-select-lowest-window) (if (cdr (assq 'unsplittable (frame-parameters))) ;; In an unsplittable frame, use something somewhere else. (display-buffer appt-disp-buf) - ;; Otherwise, split the bottom window and use the lower part. - (split-window) + (unless (or (special-display-p (buffer-name appt-disp-buf)) + (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 "