Mercurial > emacs

changeset 1338:3ea4e9dc49b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Dox fixes.
author Richard M. Stallman <rms@gnu.org>
date Mon, 05 Oct 1992 06:25:46 +0000
parents ab589b426055
children 08c2336d83ff
files lisp/calendar/cal-french.el
diffstat 1 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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