# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 781694356 0
# Node ID e54eede7144686134be96c2146cf8eee5f5eb854
# Parent  53898786366fafd4b8cb4abc454b7fbf7ba0942c
(appt-delete-window): Look on all frames for the window.
(appt-disp-window): If frame is unsplittable, use display-buffer.

diff -r 53898786366f -r e54eede71446 lisp/calendar/appt.el
--- a/lisp/calendar/appt.el	Sat Oct 08 22:16:04 1994 +0000
+++ b/lisp/calendar/appt.el	Sun Oct 09 09:19:16 1994 +0000
@@ -366,14 +366,17 @@
 	 (appt-disp-buf (set-buffer (get-buffer-create appt-buffer-name))))
 
     (appt-select-lowest-window)
-    (split-window)
-      
-    (pop-to-buffer appt-disp-buf)
+    (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)
+      (pop-to-buffer appt-disp-buf))
     (setq mode-line-format 
 	  (concat "-------------------- Appointment in "
 		  min-to-app " minutes. " new-time " %-"))
     (insert-string appt-msg)
-    (shrink-window-if-larger-than-buffer (get-buffer-window appt-disp-buf))
+    (shrink-window-if-larger-than-buffer (get-buffer-window appt-disp-buf t))
     (set-buffer-modified-p nil)
     (select-window this-window)
     (if appt-audible
@@ -382,7 +385,7 @@
 (defun appt-delete-window ()
   "Function called to undisplay appointment messages.
 Usually just deletes the appointment buffer."
-  (delete-window (get-buffer-window appt-buffer-name))
+  (delete-window (get-buffer-window appt-buffer-name t))
   (kill-buffer appt-buffer-name)
   (if appt-audible
       (beep 1)))