procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2008-04-10 05:20:15 +00:00
parent d58ee9f175
commit 6e81a223a4
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/ChangeLog
View file

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

4
lisp/calendar/diary-lib.el
View file

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