Commit 67ead471 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Dox fixes.

parent 2ea8ce47
...@@ -71,7 +71,7 @@ multiples of 4000." ...@@ -71,7 +71,7 @@ multiples of 4000."
(not (zerop (% year 4000)))))) (not (zerop (% year 4000))))))
(defun french-calendar-last-day-of-month (month year) (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 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." `sansculottides' at the end of the year."
(if (< month 13) (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 ...@@ -81,7 +81,7 @@ The 13th month is not really a month, but the 5 (6 in leap years) day period of
5))) 5)))
(defun calendar-absolute-from-french (date) (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) The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC." Gregorian date Sunday, December 31, 1 BC."
(let ((month (extract-calendar-month date)) (let ((month (extract-calendar-month date))
...@@ -101,8 +101,9 @@ Gregorian date Sunday, December 31, 1 BC." ...@@ -101,8 +101,9 @@ Gregorian date Sunday, December 31, 1 BC."
654414)));; Days before start of calendar (September 22, 1792). 654414)));; Days before start of calendar (September 22, 1792).
(defun calendar-french-from-absolute (date) (defun calendar-french-from-absolute (date)
"Compute the French Revolutionary date (month day year) corresponding to "Compute the French Revolutionary equivalent for absolute date DATE.
absolute DATE. The absolute date is the number of days elapsed since the 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." (imaginary) Gregorian date Sunday, December 31, 1 BC."
(if (< date 654415) (if (< date 654415)
(list 0 0 0);; pre-French Revolutionary date (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 ...@@ -126,8 +127,7 @@ absolute DATE. The absolute date is the number of days elapsed since the
(list month day year)))) (list month day year))))
(defun calendar-print-french-date () (defun calendar-print-french-date ()
"Show the French Revolutionary calendar equivalent of the date under the "Show the French Revolutionary calendar equivalent of the selected date."
cursor."
(interactive) (interactive)
(let* ((french-date (calendar-french-from-absolute (let* ((french-date (calendar-french-from-absolute
(calendar-absolute-from-gregorian (calendar-absolute-from-gregorian
...@@ -149,7 +149,7 @@ cursor." ...@@ -149,7 +149,7 @@ cursor."
y))))) y)))))
(defun calendar-goto-french-date (date &optional noecho) (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." Echo French Revolutionary date unless NOECHO is t."
(interactive (interactive
(let* ((year (calendar-read (let* ((year (calendar-read
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment