From 69b31c6922abe33d504c0d69898dc7d6cd09e723 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 11 Apr 1997 02:34:09 +0000 Subject: [PATCH] (diary-french-date): Use `date'. Add some additional text at the end. --- lisp/calendar/cal-french.el | 4 ++-- 1 file 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) -- 2.39.5