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

diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index 2fa0656..0499810 100644 (file)
--- a/lisp/calendar/solar.el
+++ b/lisp/calendar/solar.el
@@ -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)