Mercurial > emacs
changeset 17383:dade44f8a6b0
(diary-coptic-date): Use `date'.
If calendar-coptic-date-string gives nonempty string,
add additional text to it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 11 Apr 1997 02:35:08 +0000 |
| parents | 41db5b776fe4 |
| children | d7471b786af3 |
| files | lisp/calendar/cal-coptic.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-coptic.el Fri Apr 11 02:34:37 1997 +0000 +++ b/lisp/calendar/cal-coptic.el Fri Apr 11 02:35:08 1997 +0000 @@ -164,10 +164,10 @@ (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"