Mercurial > emacs

comparison lisp/calendar/cal-french.el @ 7639:67b7d1ea7b2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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