# HG changeset patch # User Glenn Morris # Date 1206501122 0 # Node ID da8dabfafeccb821a198aa35a486873a37c9bc5a # Parent e800589311a9aaba272c227ffd2dda7479b5e94b Require calendar rather than cal-julian. Autoload calendar-absolute-from-julian. (persian-calendar-epoch): Set when compiling. diff -r e800589311a9 -r da8dabfafecc lisp/calendar/cal-persia.el --- a/lisp/calendar/cal-persia.el Wed Mar 26 03:11:38 2008 +0000 +++ b/lisp/calendar/cal-persia.el Wed Mar 26 03:12:02 2008 +0000 @@ -32,14 +32,18 @@ ;;; Code: -(require 'cal-julian) +(require 'calendar) (defconst persian-calendar-month-name-array ["Farvardin" "Ordibehest" "Xordad" "Tir" "Mordad" "Sahrivar" "Mehr" "Aban" "Azar" "Dey" "Bahman" "Esfand"] "Names of the months in the Persian calendar.") -(defconst persian-calendar-epoch (calendar-absolute-from-julian '(3 19 622)) +(eval-and-compile + (autoload 'calendar-absolute-from-julian "cal-julian")) + +(defconst persian-calendar-epoch + (eval-when-compile (calendar-absolute-from-julian '(3 19 622))) "Absolute date of start of Persian calendar = March 19, 622 AD (Julian).") (defun persian-calendar-leap-year-p (year)