Commit 9e46548e authored by Glenn Morris's avatar Glenn Morris

(diary-list-entries, (mark-calendar-date-pattern): Use `dotimes'

rather than `calendar-for-loop'.
parent 2ed4b0e2
......@@ -461,8 +461,7 @@ If LIST-ONLY is non-nil don't modify or display the buffer, only return a list."
(set (make-local-variable 'diary-selective-display) t)
(overlay-put ol 'invisible 'diary)
(overlay-put ol 'evaporate t)))
(calendar-for-loop
i from 1 to number do
(dotimes (idummy number)
(let ((month (extract-calendar-month date))
(day (extract-calendar-day date))
(year (extract-calendar-year date))
......@@ -1190,7 +1189,7 @@ A value of 0 in any position is a wildcard."
(let ((m displayed-month)
(y displayed-year))
(increment-calendar-month m y -1)
(calendar-for-loop i from 0 to 2 do
(dotimes (idummy 3)
(mark-calendar-month m y month day year color)
(increment-calendar-month m y 1)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment