From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 29 Nov 1998 00:32:50 +0000 (+0000)
Subject: (appt-disp-window): Use pop-to-buffer,
X-Git-Tag: emacs-20.4~1172
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=058961dde397e9e65f30b91837cf7bfb35df9e62;p=emacs.git

(appt-disp-window): Use pop-to-buffer,
to support special-display and same-window features.
---

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 "