Fix previous change.

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el
index c22bc65ddc..d90526cf6d 100644
--- a/lisp/calendar/cal-coptic.el
+++ b/lisp/calendar/cal-coptic.el
@@ -167,6 +167,9 @@ Echo Coptic date unless NOECHO is t."
                (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 @@ Echo Ethiopic date unless NOECHO is t."
                        (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."