From 058961dde397e9e65f30b91837cf7bfb35df9e62 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 29 Nov 1998 00:32:50 +0000 Subject: (appt-disp-window): Use pop-to-buffer, to support special-display and same-window features. --- lisp/calendar/appt.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lisp/calendar/appt.el') diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index d9e4fd0e328..62296bb9a57 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -391,12 +391,14 @@ The following variables control appointment notification: (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 " -- cgit v1.2.1