comparison lisp/calendar/calendar.el @ 105450:7e96a7ac3ac0

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

105449:4d75e3e0f1ea

      ;;
      ;; Is this a wide frame?  If so, split it horizontally.
      (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)))
        (let ((win (split-window-vertically)))
          ;; Show something else in the upper window.
          (switch-to-buffer (other-buffer))
          ;; Switch to the lower window with the calendar buffer.
          (select-window win))))

105450:7e96a7ac3ac0

      ;;
      ;; Is this a wide frame?  If so, split it horizontally.
      (if (window-splittable-p t) (split-window-horizontally))
      (pop-to-buffer calendar-buffer)
      ;; Has the window already been split vertically?  (See bug#4543)
      (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))
          ;; Switch to the lower window with the calendar buffer.
          (select-window win))))