Mercurial > emacs
changeset 93223:9aca848375df
Require calendar rather than cal-julian.
Autoload calendar-absolute-from-julian.
(calendar-islamic-epoch): Set when compiling. Doc fix.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 26 Mar 2008 03:11:04 +0000 |
| parents | 380387e4c93c |
| children | e800589311a9 |
| files | lisp/calendar/cal-islam.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-islam.el Wed Mar 26 03:10:23 2008 +0000 +++ b/lisp/calendar/cal-islam.el Wed Mar 26 03:11:04 2008 +0000 @@ -36,15 +36,19 @@ ;;; Code: -(require 'cal-julian) +(require 'calendar) (defconst calendar-islamic-month-name-array ["Muharram" "Safar" "Rabi I" "Rabi II" "Jumada I" "Jumada II" "Rajab" "Sha'ban" "Ramadan" "Shawwal" "Dhu al-Qada" "Dhu al-Hijjah"] "Array of strings giving the names of the Islamic months.") -(defconst calendar-islamic-epoch (calendar-absolute-from-julian '(7 16 622)) - "Absolute date of start of Islamic calendar = August 29, 284 AD (Julian).") +(eval-and-compile + (autoload 'calendar-absolute-from-julian "cal-julian")) + +(defconst calendar-islamic-epoch + (eval-when-compile (calendar-absolute-from-julian '(7 16 622))) + "Absolute date of start of Islamic calendar = July 16, 622 AD (Julian).") (defun islamic-calendar-leap-year-p (year) "Return t if YEAR is a leap year on the Islamic calendar."