Mercurial > emacs
diff lisp/calendar/cal-french.el @ 17381:d1fc8a2d353f
(diary-french-date): Use `date'.
Add some additional text at the end.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 11 Apr 1997 02:34:09 +0000 |
parents | 4df6e0ffab90 |
children | daaffe2dece5 |
line wrap: on
line diff
--- a/lisp/calendar/cal-french.el Fri Apr 11 02:32:13 1997 +0000 +++ b/lisp/calendar/cal-french.el Fri Apr 11 02:34:09 1997 +0000 @@ -234,10 +234,10 @@ (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)