Appt Msg Window problem

[Tak Ota]

It seems appointment message window doesn't display correctly.  Try
evaluating (appt-disp-window "5" "3" "Test") and see the window
splits overly.  Following patch fixes this problem.

BTW, `split-window' doc string does not explain about its return
value.

-Tak

*** ../../../../pub/emacs/pure/emacs-21.3.50/lisp/calendar/appt.el      Wed Mar 
24 10:36:20 2004
--- appt.el     Mon May 10 13:51:21 2004
***************
*** 449,456 ****
                  (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 "
                  min-to-app " minutes. " new-time " %-"))
--- 449,456 ----
                  (same-window-p (buffer-name appt-disp-buf)))
        ;; By default, split the bottom window and use the lower part.
        (appt-select-lowest-window)
!       (select-window (split-window)))
!       (switch-to-buffer appt-disp-buf))
      (setq mode-line-format
          (concat "-------------------- Appointment in "
                  min-to-app " minutes. " new-time " %-"))