# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1205005837 0
# Node ID a7f58647496a81af004c1946643f8a5c30d15f35
# Parent  f32191b4080df4ad24de66507c85f957165353d3
Fix previous change.

diff -r f32191b4080d -r a7f58647496a lisp/calendar/cal-coptic.el
--- a/lisp/calendar/cal-coptic.el	Sat Mar 08 16:06:25 2008 +0000
+++ b/lisp/calendar/cal-coptic.el	Sat Mar 08 19:50:37 2008 +0000
@@ -167,6 +167,9 @@
                (lambda (x) (and (< 0 x) (<= x last))))))
     (list (list month day year))))
 
+(defvar date)
+
+;; To be called from list-sexp-diary-entries, where DATE is bound.
 (defun diary-coptic-date ()
   "Coptic calendar equivalent of date diary entry."
   (let ((f (calendar-coptic-date-string date)))
@@ -230,8 +233,6 @@
                        (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."