Mercurial > emacs

changeset 17381:d1fc8a2d353f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 ba0844956fde
children 41db5b776fe4
files lisp/calendar/cal-french.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
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)