diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-04-11 02:34:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-04-11 02:34:09 +0000 |
| commit | 69b31c6922abe33d504c0d69898dc7d6cd09e723 (patch) | |
| tree | 201fafc6bc67975d435bf5c90180a3d4334fb4b7 /lisp/calendar | |
| parent | 75697ad97f15430788b1ab37b146bcb6844eee4f (diff) | |
| download | emacs-69b31c6922abe33d504c0d69898dc7d6cd09e723.tar.gz | |
(diary-french-date): Use `date'.
Add some additional text at the end.
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/cal-french.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el index 8f68841d229..2f045e2da45 100644 --- a/lisp/calendar/cal-french.el +++ b/lisp/calendar/cal-french.el @@ -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) |