diff options
| author | Glenn Morris | 2008-03-26 03:11:04 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-03-26 03:11:04 +0000 |
| commit | 282179b2f99bc0edca9928e1ec5675bec0386f8f (patch) | |
| tree | 92901dae6bee3ffff80a6b6b7deafee13ffedd0a | |
| parent | 06e3b7ae73ca87e3450a32efb5228e7dd296766d (diff) | |
| download | emacs-282179b2f99bc0edca9928e1ec5675bec0386f8f.tar.gz emacs-282179b2f99bc0edca9928e1ec5675bec0386f8f.zip | |
Require calendar rather than cal-julian.
Autoload calendar-absolute-from-julian.
(calendar-islamic-epoch): Set when compiling. Doc fix.
| -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." |