# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 862092847 0
# Node ID daaffe2dece53b1baffcc30e39b624275f2b57da
# Parent  834a1033dc76d1790d0f2b9b7d5bb1b68d2aadc1
(calendar-print-french-date): Label French date in echo area.

diff -r 834a1033dc76 -r daaffe2dece5 lisp/calendar/cal-french.el
--- a/lisp/calendar/cal-french.el	Sat Apr 26 19:20:00 1997 +0000
+++ b/lisp/calendar/cal-french.el	Sat Apr 26 22:14:07 1997 +0000
@@ -173,7 +173,7 @@
   (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.