mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(solar-equinoxes-solstices): Use time properly adjusted for DST in the result.

Browse source
This commit is contained in:
Richard M. Stallman 2002-09-26 21:57:53 +00:00
parent bbf04be416
commit 9475e724a2
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/calendar/solar.el
View file

@ -1065,9 +1065,10 @@ Requires floating point."
(d1 (list (car d0) (floor (car (cdr d0))) (car (cdr (cdr d0)))))
(h0 (* 24 (- (car (cdr d0)) (floor (car (cdr d0))))))
(adj (dst-adjust-time d1 h0))
(d (list (car d1) (+ (car (cdr d1))
(/ (car (cdr adj)) 24.0))
(car (cdr (cdr d1)))))
(d (list (car (car adj))
(+ (car (cdr (car adj)) )
(/ (car (cdr adj)) 24.0))
(car (cdr (cdr (car adj))))))
; The following is nearly as accurate, but not quite:
;(d0 (solar-date-next-longitude
; (calendar-astro-from-absolute