Commit 10f9c35d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(solar-sunrise-and-sunset): Exchange the two extreme values of day-length.

parent a4cd0cd7
......@@ -316,8 +316,8 @@ degrees to find out if polar regions have 24 hours of sun or only night."
(if (not (and rise-time set-time))
(if (or (and (> latitude 0) solar-spring-or-summer-season)
(and (< latitude 0) (not solar-spring-or-summer-season)))
(setq day-length 24)
(setq day-length 0))
(setq day-length 0)
(setq day-length 24))
(setq day-length (- set-time rise-time)))
(list (if rise-time (+ rise-time (/ calendar-time-zone 60.0)) nil)
(if set-time (+ set-time (/ calendar-time-zone 60.0)) nil)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment