From ed8fcefb1455cfa801164aee165e0e7dc1419ef0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 26 Apr 1997 22:14:21 +0000 Subject: [PATCH] (calendar-print-coptic-date): Label Coptic/Ethiopic date in echo area. --- lisp/calendar/cal-coptic.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el index 2bdf1295442..ad260067211 100644 --- a/lisp/calendar/cal-coptic.el +++ b/lisp/calendar/cal-coptic.el @@ -126,7 +126,7 @@ Defaults to today's date if DATE is not given." (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. -- 2.39.5