[Emacs-diffs] Changes to emacs/lisp/calendar/cal-coptic.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/03/08 04:26:21

Index: cal-coptic.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-coptic.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- cal-coptic.el       8 Mar 2008 03:40:14 -0000       1.24
+++ cal-coptic.el       8 Mar 2008 04:26:21 -0000       1.25
@@ -36,10 +36,10 @@
 
 ;;; Code:
 
-(defvar date)
-
 (require 'cal-julian)
 
+;; Not constants because they get let-bound.
+
 (defvar coptic-calendar-month-name-array
   ["Tut" "Babah" "Hatur" "Kiyahk" "Tubah" "Amshir" "Baramhat" "Barmundah"
    "Bashans" "Baunah" "Abib" "Misra" "al-Nasi"])
@@ -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)