Dox fixes.

diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index 5babcdf..93f5ea1 100644 (file)
--- a/lisp/calendar/cal-french.el
+++ b/lisp/calendar/cal-french.el
@@ -71,7 +71,7 @@ multiples of 4000."
            (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 @@ The 13th month is not really a month, but the 5 (6 in leap years) day period of
       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 @@ Gregorian date Sunday, December 31, 1 BC."
        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 @@ absolute DATE.  The absolute date is the number of days elapsed since the
     (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 @@ cursor."
                  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