From 42f5d1b0010da0ba3b29ac48e6139d563d6301ec Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 26 Apr 1997 22:14:07 +0000 Subject: [PATCH] (calendar-print-french-date): Label French date in echo area. --- lisp/calendar/cal-french.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el index 2f045e2da45..d41111b4b7f 100644 --- a/lisp/calendar/cal-french.el +++ b/lisp/calendar/cal-french.el @@ -173,7 +173,7 @@ Defaults to today's date if DATE is not given." (let ((f (calendar-french-date-string (calendar-cursor-to-date t)))) (if (string-equal f "") (message "Date is pre-French Revolution") - (message f)))) + (message "French Revolutionary date: %s" f)))) (defun calendar-goto-french-date (date &optional noecho) "Move cursor to French Revolutionary date DATE. -- 2.39.5