Function: holiday-hebrew-rosh-hashanah-1

holiday-hebrew-rosh-hashanah-1 is a byte-compiled function defined in cal-hebrew.el.gz.

Signature

(holiday-hebrew-rosh-hashanah-1 Y &optional ALL)

Documentation

Return dates related to Rosh Hashanah in Year.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-hebrew.el.gz
(defun holiday-hebrew-rosh-hashanah-1 (y &optional all)
  "Return dates related to Rosh Hashanah in Year."
  (let ((abs-r-h (calendar-hebrew-to-absolute (list 7 1 (+ y 3761)))))
    (append
     (list
      (list (calendar-gregorian-from-absolute abs-r-h)
            (format "Rosh HaShanah %d" (+ 3761 y)))
      (list (calendar-gregorian-from-absolute (+ abs-r-h 9))
            "Yom Kippur")
      (list (calendar-gregorian-from-absolute (+ abs-r-h 14))
            "Sukkot")
      (list (calendar-gregorian-from-absolute (+ abs-r-h 21))
            "Shemini Atzeret")
      (list (calendar-gregorian-from-absolute (+ abs-r-h 22))
            "Simchat Torah"))
     (when (or all calendar-hebrew-all-holidays-flag)
       (list
        (list (calendar-gregorian-from-absolute
               (calendar-dayname-on-or-before 6 (- abs-r-h 4)))
              "Selichot (night)")
        (list (calendar-gregorian-from-absolute (1- abs-r-h))
              "Erev Rosh HaShanah")
        (list (calendar-gregorian-from-absolute (1+ abs-r-h))
              "Rosh HaShanah (second day)")
        (list (calendar-gregorian-from-absolute
               (+ abs-r-h (if (= (% abs-r-h 7) 4) 3 2)))
              "Tzom Gedaliah")
        (list (calendar-gregorian-from-absolute
               (calendar-dayname-on-or-before 6 (+ 7 abs-r-h)))
              "Shabbat Shuvah")
        (list (calendar-gregorian-from-absolute (+ abs-r-h 8))
              "Erev Yom Kippur")
        (list (calendar-gregorian-from-absolute (+ abs-r-h 13))
              "Erev Sukkot")
        (list (calendar-gregorian-from-absolute (+ abs-r-h 15))
              "Sukkot (second day)")
        (list (calendar-gregorian-from-absolute (+ abs-r-h 16))
              "Hol Hamoed Sukkot (first day)")
        (list (calendar-gregorian-from-absolute (+ abs-r-h 17))
              "Hol Hamoed Sukkot (second day)")
        (list (calendar-gregorian-from-absolute (+ abs-r-h 18))
              "Hol Hamoed Sukkot (third day)")
        (list (calendar-gregorian-from-absolute (+ abs-r-h 19))
              "Hol Hamoed Sukkot (fourth day)")
        (list (calendar-gregorian-from-absolute (+ abs-r-h 20))
              "Hoshanah Rabbah"))))))