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

6e81a223 · Glenn Morris · d58ee9f1 · 6e81a223 · 6e81a223
Commit 6e81a223 authored Apr 10, 2008 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

lisp/ChangeLog lisp/ChangeLog +1 -0

lisp/calendar/diary-lib.el lisp/calendar/diary-lib.el +2 -2

No files found.
--- 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>


--- 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