From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 26 Sep 2002 21:57:53 +0000 (+0000)
Subject: (solar-equinoxes-solstices): Use time properly adjusted for DST in the result.
X-Git-Tag: ttn-vms-21-2-B4~13048
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9475e724a2d8ab236dffc75e009e079bacccd0d4;p=emacs.git

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

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