From 6e81a223a467cd1fcbd5ff88cab8c29766044bc1 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 10 Apr 2008 05:20:15 +0000 Subject: [PATCH] (diary-mark-sexp-entries): Fix replacement of calendar-for-loop. --- lisp/ChangeLog | 1 + lisp/calendar/diary-lib.el | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5fb0f0c0f95..ac651f3a10d 100644 --- 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 diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 61b46a2cc97..4f0724b0f33 100644 --- 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 -- 2.39.5