From b2cbe2af53ea342696f3dcdafd971b2d3c99b891 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 24 Apr 2008 05:43:27 +0000 Subject: [PATCH] (calendar-scroll-left): Handle case when event-start is nil. --- lisp/calendar/cal-move.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 2.39.5