# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1207106241 0
# Node ID 26506821c4070ebaabac9426c42ff39ca98b5aab
# Parent  6076b35285b82e0579cb8ee3c46d98b716bba459
(list-yahrzeit-dates): Expand calendar-for-loop call.

diff -r 6076b35285b8 -r 26506821c407 lisp/calendar/cal-hebrew.el
--- 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)