# HG changeset patch # User Glenn Morris # Date 1206501004 0 # Node ID 546789da9d8f41abd8c9fa2768b9f3fde0f6fc00 # Parent f59ab0cdc9ba2c7fa32771d976f5fb0506c39ced Require calendar rather than cal-julian. Autoload calendar-absolute-from-julian. (coptic-calendar-epoch): Set when compiling. diff -r f59ab0cdc9ba -r 546789da9d8f lisp/calendar/cal-coptic.el --- a/lisp/calendar/cal-coptic.el Wed Mar 26 03:09:32 2008 +0000 +++ b/lisp/calendar/cal-coptic.el Wed Mar 26 03:10:04 2008 +0000 @@ -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"