# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1204950381 0
# Node ID 28583a8ab749ef29e9c68e05724558ef6f50d959
# Parent  716eff3e723238a6c7ba99d1dd7d068805b37193
(coptic-name): Add doc string.
Comments.

diff -r 716eff3e7232 -r 28583a8ab749 lisp/calendar/cal-coptic.el
--- a/lisp/calendar/cal-coptic.el	Sat Mar 08 04:24:55 2008 +0000
+++ b/lisp/calendar/cal-coptic.el	Sat Mar 08 04:26:21 2008 +0000
@@ -36,9 +36,9 @@
 
 ;;; Code:
 
-(defvar date)
+(require 'cal-julian)
 
-(require 'cal-julian)
+;; Not constants because they get let-bound.
 
 (defvar coptic-calendar-month-name-array
   ["Tut" "Babah" "Hatur" "Kiyahk" "Tubah" "Amshir" "Baramhat" "Barmundah"
@@ -47,7 +47,8 @@
 (defvar coptic-calendar-epoch (calendar-absolute-from-julian '(8 29 284))
   "Absolute date of start of Coptic calendar = August 29, 284 A.D. (Julian).")
 
-(defvar coptic-name "Coptic")
+(defvar coptic-name "Coptic"
+  "Used in some message strings.")
 
 (defun coptic-calendar-leap-year-p (year)
   "True if YEAR is a leap year on the Coptic calendar."
@@ -229,6 +230,9 @@
                        (calendar-absolute-from-ethiopic date)))
   (or noecho (calendar-print-ethiopic-date)))
 
+(defvar date)
+
+;; To be called from list-sexp-diary-entries, where DATE is bound.
 (defun diary-ethiopic-date ()
   "Ethiopic calendar equivalent of date diary entry."
   (let ((coptic-calendar-epoch ethiopic-calendar-epoch)