Mercurial > emacs

changeset 93954:3784131a315f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(diary-mark-sexp-entries): Fix replacement of calendar-for-loop.
author Glenn Morris <rgm@gnu.org>
date Thu, 10 Apr 2008 05:19:57 +0000
parents 121ebb4e0a03
children 758c5f9b9633
files lisp/calendar/diary-lib.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/diary-lib.el	Thu Apr 10 04:05:35 2008 +0000
+++ b/lisp/calendar/diary-lib.el	Thu Apr 10 05:19:57 2008 +0000
@@ -1325,8 +1325,7 @@
       (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 @@
           (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