# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 767777942 0
# Node ID 48ef5c3465ae6f0d8665180bc8b02763a2ddbba5
# Parent  bead6db0bbf28698b865c96ba4d7071f6221285a
(solar-degrees-to-hours, solar-hours-to-days): Force floating result.
(sunrise-sunset): Don't alter calendar-daylight-savings-starts
and calendar-daylight-savings-ends.

diff -r bead6db0bbf2 -r 48ef5c3465ae lisp/calendar/solar.el
--- a/lisp/calendar/solar.el	Sun May 01 07:34:23 1994 +0000
+++ b/lisp/calendar/solar.el	Sun May 01 07:39:02 1994 +0000
@@ -183,10 +183,10 @@
   "Eccentricity of orbit of the earth around the sun.")
 
 (defmacro solar-degrees-to-hours (deg)
-  (list '/ deg 15))
+  (list '/ deg 15.0))
 
 (defmacro solar-hours-to-days (hour)
-  (list '/ hour 24))
+  (list '/ hour 24.0))
 
 (defun solar-longitude-of-sun (day)
   "Longitude of the sun at DAY in the year."
@@ -429,10 +429,12 @@
                  ((< calendar-time-zone 0)
                      (format "UTC%dmin" calendar-time-zone))
                  (t  (format "UTC+%dmin" calendar-time-zone)))))
-        (calendar-daylight-savings-starts
-         (if (< arg 16) calendar-daylight-savings-starts))
-        (calendar-daylight-savings-ends
-         (if (< arg 16) calendar-daylight-savings-ends))
+;;   Use outer context values always, unless you're going to prompt for
+;;   the values to use.  PKH
+;;        (calendar-daylight-savings-starts
+;;         (if (< arg 16) calendar-daylight-savings-starts))
+;;        (calendar-daylight-savings-ends
+;;         (if (< arg 16) calendar-daylight-savings-ends))
         (date (if (< arg 4) (calendar-current-date) (calendar-read-date)))
         (date-string (calendar-date-string date t))
         (time-string (solar-sunrise-sunset date))