(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 "