Commit 69b31c69 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(diary-french-date): Use `date'.

Add  some additional text at the end.
parent 75697ad9
......@@ -234,10 +234,10 @@ Echo French Revolutionary date unless NOECHO is t."
(defun diary-french-date ()
"French calendar equivalent of date diary entry."
(let ((f (calendar-french-date-string (calendar-cursor-to-date t))))
(let ((f (calendar-french-date-string date)))
(if (string-equal f "")
"Date is pre-French Revolution"
f)))
(format "French Revolutionary date: %s" f))))
(provide 'cal-french)
......
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