Commit 4692b6a0 authored by Glenn Morris's avatar Glenn Morris

Fix previous change.

parent ff7d73ac
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment