mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

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

Browse Source 
Add  some additional text at the end.
This commit is contained in:
Richard M. Stallman 1997-04-11 02:34:09 +00:00
parent 75697ad97f
commit 69b31c6922
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/calendar/cal-french.el
View File

@ -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)