procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(holiday-rosh-hashanah-etc): Fix misspelled var.

Browse source
This commit is contained in:
Paul Eggert 1995-11-30 03:25:04 +00:00
parent 4ed43fd34d
commit 2e3befbad5
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/calendar/cal-hebrew.el
View file

@ -318,7 +318,7 @@ nil if it is not visible in the current calendar window."
(calendar-dayname-on-or-before 6 (- abs-r-h 4)))
"Selichot (night)")
(list (calendar-gregorian-from-absolute (1- abs-r-h))
"Erev Rosh HaShannah")
"Erev Rosh HaShanah")
(list (calendar-gregorian-from-absolute (1+ abs-r-h))
"Rosh HaShanah (second day)")
(list (calendar-gregorian-from-absolute
@ -1001,12 +1001,12 @@ Entry applies if date is Rosh Hodesh, the day before, or the Saturday before."
(let*
((h-year (extract-calendar-year
(calendar-hebrew-from-absolute d)))
(rosh-hashannah
(rosh-hashanah
(calendar-absolute-from-hebrew (list 7 1 h-year)))
(passover
(calendar-absolute-from-hebrew (list 1 15 h-year)))
(rosh-hashannah-day
(aref calendar-day-name-array (% rosh-hashannah 7)))
(rosh-hashanah-day
(aref calendar-day-name-array (% rosh-hashanah 7)))
(passover-day
(aref calendar-day-name-array (% passover 7)))
(long-h (hebrew-calendar-long-heshvan-p h-year))
@ -1017,9 +1017,9 @@ Entry applies if date is Rosh Hodesh, the day before, or the Saturday before."
(year-format
(symbol-value
(intern (format "hebrew-calendar-year-%s-%s-%s";; keviah
rosh-hashannah-day type passover-day))))
rosh-hashanah-day type passover-day))))
(first-saturday;; of Hebrew year
(calendar-dayname-on-or-before 6 (+ 6 rosh-hashannah)))
(calendar-dayname-on-or-before 6 (+ 6 rosh-hashanah)))
(saturday;; which Saturday of the Hebrew year
(/ (- d first-saturday) 7))
(parasha (aref year-format saturday)))