diff options
| -rw-r--r-- | lisp/calendar/cal-islam.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/calendar/cal-islam.el b/lisp/calendar/cal-islam.el index e1a6e47ca4b..2819eb7299f 100644 --- a/lisp/calendar/cal-islam.el +++ b/lisp/calendar/cal-islam.el | |||
| @@ -36,15 +36,19 @@ | |||
| 36 | 36 | ||
| 37 | ;;; Code: | 37 | ;;; Code: |
| 38 | 38 | ||
| 39 | (require 'cal-julian) | 39 | (require 'calendar) |
| 40 | 40 | ||
| 41 | (defconst calendar-islamic-month-name-array | 41 | (defconst calendar-islamic-month-name-array |
| 42 | ["Muharram" "Safar" "Rabi I" "Rabi II" "Jumada I" "Jumada II" | 42 | ["Muharram" "Safar" "Rabi I" "Rabi II" "Jumada I" "Jumada II" |
| 43 | "Rajab" "Sha'ban" "Ramadan" "Shawwal" "Dhu al-Qada" "Dhu al-Hijjah"] | 43 | "Rajab" "Sha'ban" "Ramadan" "Shawwal" "Dhu al-Qada" "Dhu al-Hijjah"] |
| 44 | "Array of strings giving the names of the Islamic months.") | 44 | "Array of strings giving the names of the Islamic months.") |
| 45 | 45 | ||
| 46 | (defconst calendar-islamic-epoch (calendar-absolute-from-julian '(7 16 622)) | 46 | (eval-and-compile |
| 47 | "Absolute date of start of Islamic calendar = August 29, 284 AD (Julian).") | 47 | (autoload 'calendar-absolute-from-julian "cal-julian")) |
| 48 | |||
| 49 | (defconst calendar-islamic-epoch | ||
| 50 | (eval-when-compile (calendar-absolute-from-julian '(7 16 622))) | ||
| 51 | "Absolute date of start of Islamic calendar = July 16, 622 AD (Julian).") | ||
| 48 | 52 | ||
| 49 | (defun islamic-calendar-leap-year-p (year) | 53 | (defun islamic-calendar-leap-year-p (year) |
| 50 | "Return t if YEAR is a leap year on the Islamic calendar." | 54 | "Return t if YEAR is a leap year on the Islamic calendar." |