Mercurial > emacs

changeset 92627:73ee52037e9a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Formatting changes only.
author Glenn Morris <rgm@gnu.org>
date Sat, 08 Mar 2008 20:12:25 +0000
parents 6e8a8b70004a
children 3b8495c1770f
files lisp/calendar/cal-coptic.el
diffstat 1 files changed, 11 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-coptic.el	Sat Mar 08 20:02:25 2008 +0000
+++ b/lisp/calendar/cal-coptic.el	Sat Mar 08 20:12:25 2008 +0000
@@ -57,7 +57,7 @@
 (defun coptic-calendar-last-day-of-month (month year)
   "Return last day of MONTH, YEAR on the Coptic calendar.
 The 13th month is not really a month, but the 5 (6 in leap years) day period of
-Nisi (Kebus)  at the end of the year."
+Nisi (Kebus) at the end of the year."
   (if (< month 13)
       30
     (if (coptic-calendar-leap-year-p year)
@@ -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))))