diff options
| author | Richard M. Stallman | 1997-04-26 22:14:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-26 22:14:07 +0000 |
| commit | 42f5d1b0010da0ba3b29ac48e6139d563d6301ec (patch) | |
| tree | b3eaa4be201d8cb3a4ad14a1942af328f3f578b6 | |
| parent | c4ac30da6795a36334e1eb39ebc8d09326ab2543 (diff) | |
| download | emacs-42f5d1b0010da0ba3b29ac48e6139d563d6301ec.tar.gz emacs-42f5d1b0010da0ba3b29ac48e6139d563d6301ec.zip | |
(calendar-print-french-date): Label French date in echo area.
| -rw-r--r-- | lisp/calendar/cal-french.el | 2 |
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." | |||
| 173 | (let ((f (calendar-french-date-string (calendar-cursor-to-date t)))) | 173 | (let ((f (calendar-french-date-string (calendar-cursor-to-date t)))) |
| 174 | (if (string-equal f "") | 174 | (if (string-equal f "") |
| 175 | (message "Date is pre-French Revolution") | 175 | (message "Date is pre-French Revolution") |
| 176 | (message f)))) | 176 | (message "French Revolutionary date: %s" f)))) |
| 177 | 177 | ||
| 178 | (defun calendar-goto-french-date (date &optional noecho) | 178 | (defun calendar-goto-french-date (date &optional noecho) |
| 179 | "Move cursor to French Revolutionary date DATE. | 179 | "Move cursor to French Revolutionary date DATE. |