# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1227556380 0
# Node ID d5afbdd2b77c51baa77975166d36c76d874f31a5
# Parent  7161bac8c5a8f5bf5d675502048f8fe11241ebbf
(appt-disp-window): Do a set-buffer when the
frame can't be split.

diff -r 7161bac8c5a8 -r d5afbdd2b77c lisp/calendar/appt.el
--- a/lisp/calendar/appt.el	Mon Nov 24 19:40:35 2008 +0000
+++ b/lisp/calendar/appt.el	Mon Nov 24 19:53:00 2008 +0000
@@ -417,7 +417,9 @@
       (and (minibufferp) (display-multi-frame-p) (other-frame 1)))
     (if (cdr (assq 'unsplittable (frame-parameters)))
         ;; In an unsplittable frame, use something somewhere else.
-        (display-buffer appt-disp-buf)
+	(progn
+	  (set-buffer appt-disp-buf)
+	  (display-buffer appt-disp-buf))
       (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.