Mercurial > emacs

changeset 92622:a7f58647496a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Glenn Morris <rgm@gnu.org>
date Sat, 08 Mar 2008 19:50:37 +0000
parents f32191b4080d
children fce91e69b8d6
files lisp/calendar/cal-coptic.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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."