From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 11 Apr 1997 02:35:08 +0000 (+0000)
Subject: (diary-coptic-date): Use `date'.
X-Git-Tag: emacs-20.1~2562
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7801463cd5daf12a04e7b480b65b61db7c5a6386;p=emacs.git

(diary-coptic-date): Use `date'.
If calendar-coptic-date-string gives nonempty string,
add additional text to it.
---

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"