From 73f7eb5970f108a508827ac6fab97cbda6a0d43a Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 26 Mar 2008 03:12:02 +0000 Subject: [PATCH] Require calendar rather than cal-julian. Autoload calendar-absolute-from-julian. (persian-calendar-epoch): Set when compiling. --- lisp/calendar/cal-persia.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/calendar/cal-persia.el b/lisp/calendar/cal-persia.el index 5b4e6ff6007..419286face2 100644 --- a/lisp/calendar/cal-persia.el +++ b/lisp/calendar/cal-persia.el @@ -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) -- 2.39.5