changeset 93225:da8dabfafecc

Require calendar rather than cal-julian. Autoload calendar-absolute-from-julian. (persian-calendar-epoch): Set when compiling.
author Glenn Morris <rgm@gnu.org>
date Wed, 26 Mar 2008 03:12:02 +0000
parents e800589311a9
children 41e41843fac2
files lisp/calendar/cal-persia.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)