emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/calendar/cal-hebrew.el,v


From: Glenn Morris
Subject: [Emacs-diffs] Changes to emacs/lisp/calendar/cal-hebrew.el,v
Date: Wed, 02 Apr 2008 03:17:22 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/04/02 03:17:21

Index: cal-hebrew.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-hebrew.el,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -b -r1.54 -r1.55
--- cal-hebrew.el       1 Apr 2008 02:54:29 -0000       1.54
+++ cal-hebrew.el       2 Apr 2008 03:17:21 -0000       1.55
@@ -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)
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]