Commit 7801463c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(diary-coptic-date): Use `date'.

If calendar-coptic-date-string gives nonempty string,
add additional text to it.
parent edbf2694
......@@ -164,10 +164,10 @@ Echo Coptic date unless NOECHO is t."
(defun diary-coptic-date ()
"Coptic calendar equivalent of date diary entry."
(let ((f (calendar-coptic-date-string (calendar-cursor-to-date t))))
(let ((f (calendar-coptic-date-string date)))
(if (string-equal f "")
(format "Date is pre-%s calendar" coptic-name)
f)))
(format "%s date: %s" coptic-name f))))
(defconst ethiopic-calendar-month-name-array
["Maskaram" "Teqemt" "Khedar" "Takhsas" "Ter" "Yakatit" "Magabit" "Miyazya"
......
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