49 |
(defvar coptic-calendar-epoch (calendar-absolute-from-julian '(8 29 284)) |
(defvar coptic-calendar-epoch (calendar-absolute-from-julian '(8 29 284)) |
50 |
"Absolute date of start of Coptic calendar = August 29, 284 A.D. (Julian).") |
"Absolute date of start of Coptic calendar = August 29, 284 A.D. (Julian).") |
51 |
|
|
52 |
(defconst coptic-name "Coptic") |
(defvar coptic-name "Coptic") |
53 |
|
|
54 |
(defun coptic-calendar-leap-year-p (year) |
(defun coptic-calendar-leap-year-p (year) |
55 |
"True if YEAR is a leap year on the Coptic calendar." |
"True if YEAR is a leap year on the Coptic calendar." |
234 |
|
|
235 |
(provide 'cal-coptic) |
(provide 'cal-coptic) |
236 |
|
|
237 |
|
;;; arch-tag: 72d49161-25df-4072-9312-b182cdca7627 |
238 |
;;; cal-coptic.el ends here |
;;; cal-coptic.el ends here |