From: Glenn Morris <rgm@gnu.org>
Date: Thu, 24 Apr 2008 05:43:27 +0000 (+0000)
Subject: (calendar-scroll-left): Handle case when event-start is nil.
X-Git-Tag: emacs-pretest-23.0.90~6079
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b2cbe2af53ea342696f3dcdafd971b2d3c99b891;p=emacs.git

(calendar-scroll-left): Handle case when event-start is nil.
---

diff --git a/lisp/calendar/cal-move.el b/lisp/calendar/cal-move.el
index cd59ed7ff28..1eeea1a9a2d 100644
--- a/lisp/calendar/cal-move.el
+++ b/lisp/calendar/cal-move.el
@@ -144,7 +144,8 @@ EVENT is an event like `last-nonmenu-event'."
                      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))