[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-coptic.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-coptic.el,v |
Date: |
Sat, 08 Mar 2008 20:12:25 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 08/03/08 20:12:25
Index: cal-coptic.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-coptic.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- cal-coptic.el 8 Mar 2008 19:50:37 -0000 1.26
+++ cal-coptic.el 8 Mar 2008 20:12:25 -0000 1.27
@@ -71,11 +71,11 @@
(let ((month (extract-calendar-month date))
(day (extract-calendar-day date))
(year (extract-calendar-year date)))
- (+ (1- coptic-calendar-epoch);; Days before start of calendar
- (* 365 (1- year)) ;; Days in prior years
- (/ year 4) ;; Leap days in prior years
- (* 30 (1- month)) ;; Days in prior months this year
- day))) ;; Days so far this month
+ (+ (1- coptic-calendar-epoch) ; days before start of calendar
+ (* 365 (1- year)) ; days in prior years
+ (/ year 4) ; leap days in prior years
+ (* 30 (1- month)) ; days in prior months this year
+ day))) ; days so far this month
(defun calendar-coptic-from-absolute (date)
@@ -84,15 +84,15 @@
The absolute date is the number of days elapsed since the imaginary
Gregorian date Sunday, December 31, 1 BC."
(if (< date coptic-calendar-epoch)
- (list 0 0 0);; pre-Coptic date
+ (list 0 0 0) ; pre-Coptic date
(let* ((approx (/ (- date coptic-calendar-epoch)
- 366)) ;; Approximation from below.
- (year ;; Search forward from the approximation.
+ 366)) ; approximation from below
+ (year ; search forward from the approximation
(+ approx
(calendar-sum y approx
(>= date (calendar-absolute-from-coptic (list 1 1 (1+ y))))
1)))
- (month ;; Search forward from Tot.
+ (month ; search forward from Tot
(1+ (calendar-sum m 1
(> date
(calendar-absolute-from-coptic
@@ -100,7 +100,7 @@
(coptic-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-coptic (list month 1 year))))))
(list month day year))))
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-coptic.el,v, Glenn Morris, 2008/03/07
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-coptic.el,v, Glenn Morris, 2008/03/07
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-coptic.el,v, Glenn Morris, 2008/03/08
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-coptic.el,v,
Glenn Morris <=
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-coptic.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-coptic.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-coptic.el,v, Glenn Morris, 2008/03/14
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-coptic.el,v, Glenn Morris, 2008/03/24
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-coptic.el,v, Glenn Morris, 2008/03/25
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-coptic.el,v, Glenn Morris, 2008/03/31