Commit 42f5d1b0 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(calendar-print-french-date): Label French date in echo area.

parent c4ac30da
...@@ -173,7 +173,7 @@ Defaults to today's date if DATE is not given." ...@@ -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)))) (let ((f (calendar-french-date-string (calendar-cursor-to-date t))))
(if (string-equal f "") (if (string-equal f "")
(message "Date is pre-French Revolution") (message "Date is pre-French Revolution")
(message f)))) (message "French Revolutionary date: %s" f))))
(defun calendar-goto-french-date (date &optional noecho) (defun calendar-goto-french-date (date &optional noecho)
"Move cursor to French Revolutionary date DATE. "Move cursor to French Revolutionary date DATE.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment