(calendar-basic-setup): Don't call switch-to-buffer in a dedicated window.

lisp/ChangeLog

+2009-10-05  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* calendar/calendar.el (calendar-basic-setup): Don't call
+	switch-to-buffer in a dedicated window.
+
 2009-10-05  Karl Fogel  <kfogel@red-bean.com>
 
 	* bookmark.el (bookmark-handle-bookmark): If bookmark has no file,

lisp/calendar/calendar.el

@@ -1321,7 +1321,8 @@ display the generated calendar."
       (if (window-splittable-p t) (split-window-horizontally))
       (pop-to-buffer calendar-buffer)
       ;; Has the window already been split vertically?  (See bug#4543)
-      (when (= (window-height) (window-height (frame-root-window)))
+      (when (and (not (window-dedicated-p))
+                 (= (window-height) (window-height (frame-root-window))))
         (let ((win (split-window-vertically)))
           ;; Show something else in the upper window.
           (switch-to-buffer (other-buffer))