# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 912299570 0
# Node ID 5d10105c2906698471525a0bc1a0a80c5e4f5256
# Parent  529965d3c6532d23da3cdb92a32e0c4ee174027e
(appt-disp-window): Use pop-to-buffer,
to support special-display and same-window features.

diff -r 529965d3c653 -r 5d10105c2906 lisp/calendar/appt.el
--- 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 "