From 4692b6a0f8367c94f165c0956645196271ed5c24 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 8 Mar 2008 19:50:37 +0000 Subject: [PATCH] Fix previous change. --- lisp/calendar/cal-coptic.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el index c22bc65ddc2..d90526cf6d3 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." -- 2.39.2