Mercurial > emacs
comparison lisp/calendar/cal-hebrew.el @ 46708:e82d42ccd30b
(diary-rosh-hodesh): Cons MARK on in the third case.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 27 Jul 2002 19:01:40 +0000 |
| parents | 5d2941da3ed1 |
| children | 0d8b17d428b5 |
comparison
equal
deleted
inserted
replaced
| 46707:3d08eae82583 | 46708:e82d42ccd30b |
|---|---|
| 1006 "tomorrow" | 1006 "tomorrow" |
| 1007 (aref calendar-day-name-array (- 29 h-day))) | 1007 (aref calendar-day-name-array (- 29 h-day))) |
| 1008 (aref calendar-day-name-array | 1008 (aref calendar-day-name-array |
| 1009 (% (- 30 h-day) 7)))))) | 1009 (% (- 30 h-day) 7)))))) |
| 1010 (if (and (= h-day 29) (/= h-month 6)) | 1010 (if (and (= h-day 29) (/= h-month 6)) |
| 1011 (cons (format "Erev Rosh Hodesh %s" | 1011 (cons mark |
| 1012 (format "Erev Rosh Hodesh %s" | |
| 1012 (aref h-month-names | 1013 (aref h-month-names |
| 1013 (if (= h-month | 1014 (if (= h-month |
| 1014 (hebrew-calendar-last-month-of-year | 1015 (hebrew-calendar-last-month-of-year |
| 1015 h-year)) | 1016 h-year)) |
| 1016 0 h-month))))))))) | 1017 0 h-month))))))))) |