From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 11 Apr 1997 02:34:09 +0000 (+0000)
Subject: (diary-french-date): Use `date'.
X-Git-Tag: emacs-20.1~2564
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69b31c6922abe33d504c0d69898dc7d6cd09e723;p=emacs.git

(diary-french-date): Use `date'.
Add  some additional text at the end.
---

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)