# HG changeset patch # User Glenn Morris # Date 1206501064 0 # Node ID 9aca848375df1880839d233deda8a5824e6a7252 # Parent 380387e4c93c009081606a6ba824911a660b5cb1 Require calendar rather than cal-julian. Autoload calendar-absolute-from-julian. (calendar-islamic-epoch): Set when compiling. Doc fix. diff -r 380387e4c93c -r 9aca848375df lisp/calendar/cal-islam.el --- 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."