# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1209015807 0
# Node ID eaaf578ce48fda0ec7be136bc9754d9df92a31c5
# Parent  d550d8d3e7f3a8b173d7132c9870f9e7f20f729c
(calendar-scroll-left): Handle case when event-start is nil.

diff -r d550d8d3e7f3 -r eaaf578ce48f lisp/calendar/cal-move.el
--- a/lisp/calendar/cal-move.el	Thu Apr 24 05:42:47 2008 +0000
+++ b/lisp/calendar/cal-move.el	Thu Apr 24 05:43:27 2008 +0000
@@ -144,7 +144,8 @@
                      last-nonmenu-event))
   (unless arg (setq arg 1))
   (save-selected-window
-    (select-window (posn-window (event-start event)))
+    ;; Nil if called from menu-bar.
+    (if (setq event (event-start event)) (select-window (posn-window event)))
     (calendar-cursor-to-nearest-date)
     (unless (zerop arg)
       (let ((old-date (calendar-cursor-to-date))