Mercurial > emacs
changeset 93525:26506821c407
(list-yahrzeit-dates): Expand calendar-for-loop call.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 02 Apr 2008 03:17:21 +0000 |
| parents | 6076b35285b8 |
| children | 90118d6d9050 |
| files | lisp/calendar/cal-hebrew.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-hebrew.el Wed Apr 02 03:16:47 2008 +0000 +++ b/lisp/calendar/cal-hebrew.el Wed Apr 02 03:17:21 2008 +0000 @@ -374,6 +374,7 @@ "Hoshanah Rabbah"))) (output-list (holiday-filter-visible-calendar mandatory))) + ;; FIXME simplify? (if all-hebrew-calendar-holidays (setq output-list (append @@ -655,7 +656,8 @@ (calendar-absolute-from-gregorian death-date))) (h-month (extract-calendar-month h-date)) (h-day (extract-calendar-day h-date)) - (h-year (extract-calendar-year h-date))) + (h-year (extract-calendar-year h-date)) + (i (1- start-year))) (calendar-in-read-only-buffer cal-hebrew-yahrzeit-buffer (calendar-set-mode-line (format "Yahrzeit dates for %s = %s" @@ -665,7 +667,7 @@ calendar-hebrew-month-name-array-leap-year calendar-hebrew-month-name-array-common-year))) (calendar-date-string h-date nil t)))) - (calendar-for-loop i from start-year to end-year do + (while (<= (setq i (1+ i)) end-year) (insert (calendar-date-string (calendar-gregorian-from-absolute @@ -673,8 +675,8 @@ h-date (extract-calendar-year (calendar-hebrew-from-absolute - (calendar-absolute-from-gregorian (list 1 1 i))))))) "\n"))) - (message "Computing Yahrzeits...done"))) + (calendar-absolute-from-gregorian (list 1 1 i))))))) "\n")))) + (message "Computing Yahrzeits...done")) (defvar date)