Mercurial > emacs
comparison lisp/calendar/cal-french.el @ 7639:67b7d1ea7b2e
Doc fix.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 22 May 1994 22:14:17 +0000 |
parents | 3e1323443b1a |
children | b6ac896a491a |
comparison
equal
deleted
inserted
replaced
7638:fb6479579c0b | 7639:67b7d1ea7b2e |
---|---|
102 | 102 |
103 (defun calendar-french-from-absolute (date) | 103 (defun calendar-french-from-absolute (date) |
104 "Compute the French Revolutionary equivalent for absolute date DATE. | 104 "Compute the French Revolutionary equivalent for absolute date DATE. |
105 The result is a list of the form (MONTH DAY YEAR). | 105 The result is a list of the form (MONTH DAY YEAR). |
106 The absolute date is the number of days elapsed since the | 106 The absolute date is the number of days elapsed since the |
107 (imaginary) Gregorian date Sunday, December 31, 1 BC." | 107 \(imaginary) Gregorian date Sunday, December 31, 1 BC." |
108 (if (< date 654415) | 108 (if (< date 654415) |
109 (list 0 0 0);; pre-French Revolutionary date | 109 (list 0 0 0);; pre-French Revolutionary date |
110 (let* ((approx (/ (- date 654414) 366));; Approximation from below. | 110 (let* ((approx (/ (- date 654414) 366));; Approximation from below. |
111 (year ;; Search forward from the approximation. | 111 (year ;; Search forward from the approximation. |
112 (+ approx | 112 (+ approx |