# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 862092861 0
# Node ID e4c551837753b4a7e2d05685f6e231ac9bbd6771
# Parent  daaffe2dece53b1baffcc30e39b624275f2b57da
(calendar-print-coptic-date): Label Coptic/Ethiopic date in echo area.

diff -r daaffe2dece5 -r e4c551837753 lisp/calendar/cal-coptic.el
--- a/lisp/calendar/cal-coptic.el	Sat Apr 26 22:14:07 1997 +0000
+++ b/lisp/calendar/cal-coptic.el	Sat Apr 26 22:14:21 1997 +0000
@@ -126,7 +126,7 @@
   (let ((f (calendar-coptic-date-string (calendar-cursor-to-date t))))
     (if (string-equal f "")
         (message "Date is pre-%s calendar" coptic-name)
-      (message f))))
+      (message "%s date: %s" coptic-name f))))
 
 (defun calendar-goto-coptic-date (date &optional noecho)
   "Move cursor to Coptic date DATE.