[Emacs-diffs] Changes to emacs/lisp/calendar/calendar.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/06/26 07:07:34

Index: calendar.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/calendar.el,v
retrieving revision 1.269
retrieving revision 1.270
diff -u -b -r1.269 -r1.270
--- calendar.el 26 Jun 2008 06:57:29 -0000      1.269
+++ calendar.el 26 Jun 2008 07:07:34 -0000      1.270
@@ -1787,7 +1787,8 @@
       (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,