diff options
| author | Richard M. Stallman | 1997-04-11 02:34:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-11 02:34:09 +0000 |
| commit | 69b31c6922abe33d504c0d69898dc7d6cd09e723 (patch) | |
| tree | 201fafc6bc67975d435bf5c90180a3d4334fb4b7 | |
| parent | 75697ad97f15430788b1ab37b146bcb6844eee4f (diff) | |
| download | emacs-69b31c6922abe33d504c0d69898dc7d6cd09e723.tar.gz emacs-69b31c6922abe33d504c0d69898dc7d6cd09e723.zip | |
(diary-french-date): Use `date'.
Add some additional text at the end.
| -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." | |||
| 234 | 234 | ||
| 235 | (defun diary-french-date () | 235 | (defun diary-french-date () |
| 236 | "French calendar equivalent of date diary entry." | 236 | "French calendar equivalent of date diary entry." |
| 237 | (let ((f (calendar-french-date-string (calendar-cursor-to-date t)))) | 237 | (let ((f (calendar-french-date-string date))) |
| 238 | (if (string-equal f "") | 238 | (if (string-equal f "") |
| 239 | "Date is pre-French Revolution" | 239 | "Date is pre-French Revolution" |
| 240 | f))) | 240 | (format "French Revolutionary date: %s" f)))) |
| 241 | 241 | ||
| 242 | (provide 'cal-french) | 242 | (provide 'cal-french) |
| 243 | 243 | ||