summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-04-26 22:14:07 +0000
committerRichard M. Stallman <rms@gnu.org>1997-04-26 22:14:07 +0000
commit42f5d1b0010da0ba3b29ac48e6139d563d6301ec (patch)
treeb3eaa4be201d8cb3a4ad14a1942af328f3f578b6 /lisp
parentc4ac30da6795a36334e1eb39ebc8d09326ab2543 (diff)
downloademacs-42f5d1b0010da0ba3b29ac48e6139d563d6301ec.tar.gz
(calendar-print-french-date): Label French date in echo area.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/calendar/cal-french.el2
1 files changed, 1 insertions, 1 deletions
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.