From 9475e724a2d8ab236dffc75e009e079bacccd0d4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 26 Sep 2002 21:57:53 +0000 Subject: [PATCH] (solar-equinoxes-solstices): Use time properly adjusted for DST in the result. --- lisp/calendar/solar.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el index deef86a3afb..889129858d9 100644 --- a/lisp/calendar/solar.el +++ b/lisp/calendar/solar.el @@ -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 -- 2.39.2