mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 16:10:46 -08:00
Code Issues Projects Releases Wiki Activity

Require calendar rather than cal-julian.

Browse source 
Autoload calendar-absolute-from-julian.
(calendar-islamic-epoch): Set when compiling.  Doc fix.
This commit is contained in:
Glenn Morris 2008-03-26 03:11:04 +00:00
parent 06e3b7ae73
commit 282179b2f9
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/calendar/cal-islam.el
View file

@ -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."