;;; cal-hebrew.el --- calendar functions for the Hebrew calendar
-;; Copyright (C) 1995, 1997, 2001-2015 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1997, 2001-2016 Free Software Foundation, Inc.
;; Author: Nachum Dershowitz <nachum@cs.uiuc.edu>
;; Edward M. Reingold <reingold@cs.uiuc.edu>
(require 'calendar)
-(define-obsolete-variable-alias 'diary-sabbath-candles-minutes
- 'diary-hebrew-sabbath-candles-minutes "23.1")
-
(defcustom diary-hebrew-sabbath-candles-minutes 18
"Number of minutes before sunset for sabbath candle lighting.
Used by `diary-hebrew-sabbath-candles'."
(calendar-hebrew-elapsed-days year) ; days in prior years
-1373429))) ; days elapsed before absolute date 1
-(define-obsolete-function-alias 'calendar-absolute-from-hebrew
- 'calendar-hebrew-to-absolute "23.1")
-
(defun calendar-hebrew-from-absolute (date)
"Compute the Hebrew date (month day year) corresponding to absolute DATE.
The absolute date is the number of days elapsed since the (imaginary)
(message "Hebrew date (until sunset): %s"
(calendar-hebrew-date-string (calendar-cursor-to-date t))))
-(define-obsolete-function-alias 'calendar-print-hebrew-date
- 'calendar-hebrew-print-date "23.1")
-
(defun calendar-hebrew-yahrzeit (death-date year)
"Absolute date of the anniversary of Hebrew DEATH-DATE in Hebrew YEAR."
(let ((death-day (calendar-extract-day death-date))
(t (calendar-hebrew-to-absolute
(list death-month death-day year))))))
-(define-obsolete-function-alias 'hebrew-calendar-yahrzeit
- 'calendar-hebrew-yahrzeit "23.1")
-
(defun calendar-hebrew-read-date ()
"Interactively read the arguments for a Hebrew date command.
Reads a year, month, and day."
(calendar-hebrew-to-absolute date)))
(or noecho (calendar-hebrew-print-date)))
-(define-obsolete-function-alias 'calendar-goto-hebrew-date
- 'calendar-hebrew-goto-date "23.1")
-
(defvar displayed-month) ; from calendar-generate
(defun calendar-hebrew-date-is-visible-p (month day)
(list (calendar-gregorian-from-absolute (+ abs-r-h 20))
"Hoshanah Rabbah"))))))))
-;;;###holiday-autoload
-(define-obsolete-function-alias 'holiday-rosh-hashanah-etc
- 'holiday-hebrew-rosh-hashanah "23.1")
-
;;;###holiday-autoload
(defun holiday-hebrew-hanukkah (&optional all)
"List of dates related to Hanukkah, as visible in calendar window.
han)))
(list (list (calendar-gregorian-from-absolute abs-h) "Hanukkah")))))))
-;;;###holiday-autoload
-(define-obsolete-function-alias 'holiday-hanukkah
- 'holiday-hebrew-hanukkah "23.1")
-
;;;###holiday-autoload
(defun holiday-hebrew-passover (&optional all)
"List of dates related to Passover, as visible in calendar window.
(list (calendar-gregorian-from-absolute (+ abs-p 51))
"Shavuot (second day)")))))))))
-;;;###holiday-autoload
-(define-obsolete-function-alias 'holiday-passover-etc
- 'holiday-hebrew-passover "23.1")
-
;;;###holiday-autoload
(defun holiday-hebrew-tisha-b-av ()
"List of dates around Tisha B'Av, as visible in calendar window."
(calendar-dayname-on-or-before 6 (+ abs-t-a 7)))
"Shabbat Nahamu"))))))
-;;;###holiday-autoload
-(define-obsolete-function-alias 'holiday-tisha-b-av-etc
- 'holiday-hebrew-tisha-b-av "23.1")
-
(autoload 'holiday-julian "cal-julian")
;;;###holiday-autoload
(diary-list-entries-1 calendar-hebrew-month-name-array-leap-year
diary-hebrew-entry-symbol
'calendar-hebrew-from-absolute))
-;;;###diary-autoload
-(define-obsolete-function-alias 'list-hebrew-diary-entries
- 'diary-hebrew-list-entries "23.1")
(autoload 'calendar-mark-complex "diary-lib")
"Mark dates in calendar window that conform to Hebrew date MONTH/DAY/YEAR.
A value of 0 in any position is a wildcard. Optional argument COLOR is
passed to `calendar-mark-visible-date' as MARK."
- ;; FIXME not the same as the Bahai and Islamic cases, so can't use
+ ;; FIXME not the same as the Bahá’í and Islamic cases, so can't use
;; calendar-mark-1.
(with-current-buffer calendar-buffer
(if (and (not (zerop month)) (not (zerop day)))
(calendar-mark-complex month day year
'calendar-hebrew-from-absolute color))))
-;;;###diary-autoload
-(define-obsolete-function-alias 'mark-hebrew-calendar-date-pattern
- 'calendar-hebrew-mark-date-pattern "23.1")
-
(autoload 'diary-mark-entries-1 "diary-lib")
;;;###diary-autoload
diary-hebrew-entry-symbol
'calendar-hebrew-from-absolute))
-;;;###diary-autoload
-(define-obsolete-function-alias 'mark-hebrew-diary-entries
- 'diary-hebrew-mark-entries "23.1")
-
(autoload 'diary-insert-entry-1 "diary-lib")
;;;###cal-autoload
diary-hebrew-entry-symbol
'calendar-hebrew-from-absolute))
-;;;###diary-autoload
-(define-obsolete-function-alias 'insert-hebrew-diary-entry
- 'diary-hebrew-insert-entry "23.1")
-
;;;###cal-autoload
(defun diary-hebrew-insert-monthly-entry (arg)
"Insert a monthly diary entry.
(diary-insert-entry-1 'monthly arg calendar-hebrew-month-name-array-leap-year
diary-hebrew-entry-symbol
'calendar-hebrew-from-absolute))
-;;;###diary-autoload
-(define-obsolete-function-alias 'insert-monthly-hebrew-diary-entry
- 'diary-hebrew-insert-monthly-entry "23.1")
;;;###cal-autoload
(defun diary-hebrew-insert-yearly-entry (arg)
(diary-insert-entry-1 'yearly arg calendar-hebrew-month-name-array-leap-year
diary-hebrew-entry-symbol
'calendar-hebrew-from-absolute))
-;;;###diary-autoload
-(define-obsolete-function-alias 'insert-yearly-hebrew-diary-entry
- 'diary-hebrew-insert-yearly-entry "23.1")
;;;###autoload
(defun calendar-hebrew-list-yahrzeits (death-date start-year end-year)
(calendar-absolute-from-gregorian (list 1 1 i))))))) "\n"))))
(message "Computing Yahrzeits...done"))
-;;;###autoload
-(define-obsolete-function-alias 'list-yahrzeit-dates
- 'calendar-hebrew-list-yahrzeits "23.1")
-
(defun calendar-hebrew-birthday (date year)
"Absolute date of the anniversary of Hebrew birth DATE, in Hebrew YEAR."
(let ((b-day (calendar-extract-day date))
""
(format " and %d day%s"
day (if (= day 1) "" "s"))))))))))
-;;;###diary-autoload
-(define-obsolete-function-alias 'diary-omer 'diary-hebrew-omer "23.1")
(autoload 'diary-make-date "diary-lib")
diff
(diary-ordinal-suffix diff))))))
-;;;###diary-autoload
-(define-obsolete-function-alias 'diary-yahrzeit 'diary-hebrew-yahrzeit "23.1")
-
;;;###diary-autoload
(defun diary-hebrew-rosh-hodesh (&optional mark)
"Rosh Hodesh diary entry.
(calendar-hebrew-last-month-of-year
h-year))
0 h-month)))))))))
-;;;###diary-autoload
-(define-obsolete-function-alias 'diary-rosh-hodesh
- 'diary-hebrew-rosh-hodesh "23.1")
(defconst calendar-hebrew-parashiot-names
["Bereshith" "Noah" "Lech L'cha" "Vayera" "Hayei Sarah" "Toledoth"
(cdr parasha))))
(calendar-hebrew-parasha-name parasha)))))))))
-(define-obsolete-function-alias 'diary-parasha 'diary-hebrew-parasha "23.1")
-
(declare-function solar-setup "solar" ())
(declare-function solar-sunrise-sunset "solar" (date))
60.0))
(cdr sunset)))))))))
-;;;###diary-autoload
-(define-obsolete-function-alias 'diary-sabbath-candles
- 'diary-hebrew-sabbath-candles "23.1")
-
(provide 'cal-hebrew)