(appt-disp-window): Use pop-to-buffer,

to support special-display and same-window features.

1 files changed, 5 insertions, 3 deletions

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 "