Mercurial > emacs

comparison lisp/calendar/solar.el @ 47629:392820ae24ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(solar-equinoxes-solstices): Use time properly adjusted for DST in the result.
author Richard M. Stallman <rms@gnu.org>
date Thu, 26 Sep 2002 21:57:53 +0000
parents 0fcc52168240
children f1e846c193c7
comparison
equal deleted inserted replaced
47628:e44b96f09893 47629:392820ae24ce
1063 (k (1- (/ m 3))) 1063 (k (1- (/ m 3)))
1064 (d0 (solar-equinoxes/solstices k y)) 1064 (d0 (solar-equinoxes/solstices k y))
1065 (d1 (list (car d0) (floor (car (cdr d0))) (car (cdr (cdr d0))))) 1065 (d1 (list (car d0) (floor (car (cdr d0))) (car (cdr (cdr d0)))))
1066 (h0 (* 24 (- (car (cdr d0)) (floor (car (cdr d0)))))) 1066 (h0 (* 24 (- (car (cdr d0)) (floor (car (cdr d0))))))
1067 (adj (dst-adjust-time d1 h0)) 1067 (adj (dst-adjust-time d1 h0))
1068 (d (list (car d1) (+ (car (cdr d1)) 1068 (d (list (car (car adj))
1069 (/ (car (cdr adj)) 24.0)) 1069 (+ (car (cdr (car adj)) )
1070 (car (cdr (cdr d1))))) 1070 (/ (car (cdr adj)) 24.0))
1071 (car (cdr (cdr (car adj))))))
1071 ; The following is nearly as accurate, but not quite: 1072 ; The following is nearly as accurate, but not quite:
1072 ;(d0 (solar-date-next-longitude 1073 ;(d0 (solar-date-next-longitude
1073 ; (calendar-astro-from-absolute 1074 ; (calendar-astro-from-absolute
1074 ; (calendar-absolute-from-gregorian 1075 ; (calendar-absolute-from-gregorian
1075 ; (list (+ 3 (* k 3)) 15 y))) 1076 ; (list (+ 3 (* k 3)) 15 y)))