Mercurial > emacs

comparison lisp/calendar/cal-iso.el @ 92902:d77fc175bcfc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Re-indent.
author Glenn Morris <rgm@gnu.org>
date Fri, 14 Mar 2008 03:10:37 +0000
parents 272f566348a7
children 5a7437fafea3
comparison
equal deleted inserted replaced
92901:4e7000070b61 92902:d77fc175bcfc
65 date Sunday, December 31, 1 BC." 65 date Sunday, December 31, 1 BC."
66 (let* ((approx (extract-calendar-year 66 (let* ((approx (extract-calendar-year
67 (calendar-gregorian-from-absolute (- date 3)))) 67 (calendar-gregorian-from-absolute (- date 3))))
68 (year (+ approx 68 (year (+ approx
69 (calendar-sum y approx 69 (calendar-sum y approx
70 (>= date (calendar-absolute-from-iso (list 1 1 (1+ y)))) 70 (>= date (calendar-absolute-from-iso
71 1)))) 71 (list 1 1 (1+ y))))
72 1))))
72 (list 73 (list
73 (1+ (/ (- date (calendar-absolute-from-iso (list 1 1 year))) 7)) 74 (1+ (/ (- date (calendar-absolute-from-iso (list 1 1 year))) 7))
74 (% date 7) 75 (% date 7)
75 year))) 76 year)))
76 77