From 7801463cd5daf12a04e7b480b65b61db7c5a6386 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 11 Apr 1997 02:35:08 +0000 Subject: [PATCH] (diary-coptic-date): Use `date'. If calendar-coptic-date-string gives nonempty string, add additional text to it. --- lisp/calendar/cal-coptic.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el index 6fce26c5013..2bdf1295442 100644 --- a/lisp/calendar/cal-coptic.el +++ b/lisp/calendar/cal-coptic.el @@ -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" -- 2.39.5