diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-04-10 05:20:15 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-04-10 05:20:15 +0000 |
| commit | 6e81a223a467cd1fcbd5ff88cab8c29766044bc1 (patch) | |
| tree | e4f1bd09e0d70a11d6b16401040f7de3c18ad96b /lisp | |
| parent | d58ee9f1754a6f83b52d0250006323e6a21178a6 (diff) | |
| download | emacs-6e81a223a467cd1fcbd5ff88cab8c29766044bc1.tar.gz emacs-6e81a223a467cd1fcbd5ff88cab8c29766044bc1.tar.bz2 emacs-6e81a223a467cd1fcbd5ff88cab8c29766044bc1.zip | |
(diary-mark-sexp-entries): Fix replacement of calendar-for-loop.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | 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 <monnier@iro.umontreal.ca> 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 |