[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v |
Date: |
Sat, 08 Mar 2008 20:15:16 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 08/03/08 20:15:15
Index: cal-french.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-french.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- cal-french.el 8 Mar 2008 04:24:55 -0000 1.38
+++ cal-french.el 8 Mar 2008 20:15:15 -0000 1.39
@@ -93,9 +93,9 @@
years uses the proposed rule of Romme (never adopted)--leap years fall every
four years except century years not divisible 400 and century years that are
multiples of 4000."
- (or (memq year '(3 7 11));; Actual practice--based on equinoxes
- (memq year '(15 20)) ;; Anticipated practice--based on equinoxes
- (and (> year 20) ;; Romme's proposal--never adopted
+ (or (memq year '(3 7 11)) ; actual practice--based on equinoxes
+ (memq year '(15 20)) ; anticipated practice--based on equinoxes
+ (and (> year 20) ; Romme's proposal--never adopted
(zerop (% year 4))
(not (memq (% year 400) '(100 200 300)))
(not (zerop (% year 4000))))))
@@ -117,18 +117,18 @@
(let ((month (extract-calendar-month date))
(day (extract-calendar-day date))
(year (extract-calendar-year date)))
- (+ (* 365 (1- year));; Days in prior years
- ;; Leap days in prior years
+ (+ (* 365 (1- year)) ; days in prior years
+ ;; Leap days in prior years.
(if (< year 20)
- (/ year 4);; Actual and anticipated practice (years 3, 7, 11, 15)
- ;; Romme's proposed rule (using the Principle of Inclusion/Exclusion)
- (+ (/ (1- year) 4);; Luckily, there were 4 leap years before year 20
+ (/ year 4) ; actual and anticipated practice (years 3, 7, 11, 15)
+ ;; Romme's proposed rule (using the Principle of Inclusion/Exclusion).
+ (+ (/ (1- year) 4) ; luckily, there were 4 leap years before year 20
(- (/ (1- year) 100))
(/ (1- year) 400)
(- (/ (1- year) 4000))))
- (* 30 (1- month));; Days in prior months this year
- day;; Days so far this month
- (1- french-calendar-epoch))));; Days before start of calendar
+ (* 30 (1- month)) ; days in prior months this year
+ day ; days so far this month
+ (1- french-calendar-epoch)))) ; days before start of calendar
(defun calendar-french-from-absolute (date)
"Compute the French Revolutionary equivalent for absolute date DATE.
@@ -136,15 +136,15 @@
The absolute date is the number of days elapsed since the
\(imaginary) Gregorian date Sunday, December 31, 1 BC."
(if (< date french-calendar-epoch)
- (list 0 0 0);; pre-French Revolutionary date
- (let* ((approx ;; Approximation from below.
+ (list 0 0 0) ; pre-French Revolutionary date
+ (let* ((approx ; approximation from below
(/ (- date french-calendar-epoch) 366))
- (year ;; Search forward from the approximation.
+ (year ; search forward from the approximation
(+ approx
(calendar-sum y approx
(>= date (calendar-absolute-from-french (list 1 1 (1+ y))))
1)))
- (month ;; Search forward from Vendemiaire.
+ (month ; search forward from Vendemiaire
(1+ (calendar-sum m 1
(> date
(calendar-absolute-from-french
@@ -152,7 +152,7 @@
(french-calendar-last-day-of-month m year)
year)))
1)))
- (day ;; Calculate the day by subtraction.
+ (day ; calculate the day by subtraction
(- date
(1- (calendar-absolute-from-french (list month 1 year))))))
(list month day year))))
@@ -220,7 +220,7 @@
(lambda (x) (concat "Jour " x))
french-calendar-special-days-array)
(reverse
- (cdr;; we don't want rev. day in a non-leap yr.
+ (cdr ; we don't want rev. day in a non-leap yr
(reverse
(mapcar
(lambda (x)
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/07
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/07
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v,
Glenn Morris <=
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/08
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/14
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-french.el,v, Glenn Morris, 2008/03/31