aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/calendar/cal-islam.el10
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."