# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 718266346 0
# Node ID 3ea4e9dc49b24f2bd40194dfc1f6a04c7aaab0a0
# Parent  ab589b4260556d331d4ea28f38fa0507a0583677
Dox fixes.

diff -r ab589b426055 -r 3ea4e9dc49b2 lisp/calendar/cal-french.el
--- a/lisp/calendar/cal-french.el	Mon Oct 05 05:49:27 1992 +0000
+++ b/lisp/calendar/cal-french.el	Mon Oct 05 06:25:46 1992 +0000
@@ -71,7 +71,7 @@
            (not (zerop (% year 4000))))))
 
 (defun french-calendar-last-day-of-month (month year)
-  "Last day of MONTH, YEAR on the French Revolutionary calendar.
+  "Return last day of MONTH, YEAR on the French Revolutionary calendar.
 The 13th month is not really a month, but the 5 (6 in leap years) day period of
 `sansculottides' at the end of the year."
   (if (< month 13)
@@ -81,7 +81,7 @@
       5)))
 
 (defun calendar-absolute-from-french (date)
-  "Absolute date of French Revolutionary DATE.
+  "Compute absolute date from French Revolutionary date DATE.
 The absolute date is the number of days elapsed since the (imaginary)
 Gregorian date Sunday, December 31, 1 BC."
   (let ((month (extract-calendar-month date))
@@ -101,8 +101,9 @@
        654414)));; Days before start of calendar (September 22, 1792).
 
 (defun calendar-french-from-absolute (date)
-  "Compute the French Revolutionary date (month day year) corresponding to
-absolute DATE.  The absolute date is the number of days elapsed since the
+  "Compute the French Revolutionary equivalent for absolute date DATE.
+The result is a list of the form (MONTH DAY YEAR).
+The absolute date is the number of days elapsed since the
 (imaginary) Gregorian date Sunday, December 31, 1 BC."
   (if (< date 654415)
       (list 0 0 0);; pre-French Revolutionary date
@@ -126,8 +127,7 @@
     (list month day year))))
 
 (defun calendar-print-french-date ()
-  "Show the French Revolutionary calendar equivalent of the date under the
-cursor."
+  "Show the French Revolutionary calendar equivalent of the selected date."
   (interactive)
   (let* ((french-date (calendar-french-from-absolute
                        (calendar-absolute-from-gregorian
@@ -149,7 +149,7 @@
                  y)))))
 
 (defun calendar-goto-french-date (date &optional noecho)
-  "Move cursor to French Revolutionary DATE.
+  "Move cursor to French Revolutionary date DATE.
 Echo French Revolutionary date unless NOECHO is t."
   (interactive
    (let* ((year (calendar-read