From dad6b4ee590e419d1cf0b1120915386a0e9117f9 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 26 Mar 2008 03:10:04 +0000 Subject: [PATCH] Require calendar rather than cal-julian. Autoload calendar-absolute-from-julian. (coptic-calendar-epoch): Set when compiling. --- lisp/calendar/cal-coptic.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el index d336990311c..de7a68f7d61 100644 --- a/lisp/calendar/cal-coptic.el +++ b/lisp/calendar/cal-coptic.el @@ -36,7 +36,7 @@ ;;; Code: -(require 'cal-julian) +(require 'calendar) ;; Not constants because they get let-bound. @@ -45,7 +45,11 @@ "Bashans" "Baunah" "Abib" "Misra" "al-Nasi"] "Array of the month names in the Coptic calendar.") -(defvar coptic-calendar-epoch (calendar-absolute-from-julian '(8 29 284)) +(eval-and-compile + (autoload 'calendar-absolute-from-julian "cal-julian")) + +(defvar coptic-calendar-epoch + (eval-when-compile (calendar-absolute-from-julian '(8 29 284))) "Absolute date of start of Coptic calendar = August 29, 284 AD (Julian).") (defvar coptic-name "Coptic" -- 2.39.5