(diary-mark-sexp-entries): Fix replacement of calendar-for-loop.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fb0f0c0f9501b9c33a7604fdeb2f6a484ca55d1..ac651f3a10de55ba828f0be0db5244057e43ef96 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -22,6 +22,7 @@
        * calendar/appt.el (appt): Add :prefix.
 
        * calendar/diary-lib.el (diary-hook): Doc fix.
+       (diary-mark-sexp-entries): Fix replacement of calendar-for-loop.
 
 2008-04-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 61b46a2cc97cb2e6b48bd997882317ed8e77a80c..4f0724b0f33655ed215b262534a5524297173516 100644 (file)
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -1325,8 +1325,7 @@ is marked.  See the documentation for the function `diary-list-sexp-entries'."
       (setq m displayed-month
             y displayed-year))
     (calendar-increment-month m y -1)
-    (setq first-date (calendar-absolute-from-gregorian (list m 1 y))
-          date (1- first-date))
+    (setq first-date (calendar-absolute-from-gregorian (list m 1 y)))
     (calendar-increment-month m y 2)
     (setq last-date
           (calendar-absolute-from-gregorian
@@ -1351,6 +1350,7 @@ is marked.  See the documentation for the function `diary-list-sexp-entries'."
           (forward-line 1))
         (if (bolp) (backward-char 1))
         (setq entry (buffer-substring-no-properties entry-start (point))))
+      (setq date (1- first-date))
       (while (<= (setq date (1+ date)) last-date)
         (when (setq mark (diary-sexp-entry
                           sexp entry