(calendar-cursor-to-date): Handle case where event-start is nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 78ef7e35b3a544bc8a07fb1519718850e6249e25..b9683e282dd41f233a288f733b5787659eb7a6c4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -48,6 +48,10 @@
        Add doc strings.
        (cal-menu-context-mouse-menu): Add some :keys.
 
+       * calendar/cal-menu.el (cal-menu-moon-menu): Add sunrise/sunset.
+       * calendar/calendar.el (calendar-cursor-to-date): Handle case where
+       event-start is nil.
+
 2008-06-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * minibuffer.el (completion-basic-try-completion): Use the text after

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 35dc61190150e7bd8d413c6fc751a226af3fbddd..284937f3017ae806c2dc7ad7f296c45b6d988e35 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1787,7 +1787,8 @@ use instead of point."
       (if event (window-buffer (posn-window (event-start event)))
         (current-buffer))
     (save-excursion
-      (if event (goto-char (posn-point (event-start event))))
+      (and event (setq event (event-start event))
+           (goto-char (posn-point event)))
       (let* ((segment (calendar-column-to-segment))
              (month (% (+ displayed-month (1- segment)) 12)))
         ;; Call with point on either of the two digits in a 2-digit date,