# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1005509687 0
# Node ID c991c9834a24c0dc213b8044155765bccc918780
# Parent  79d4aae20aa36498a0b57f5f3f1b8a88245c7e6a
(solar-sunrise-and-sunset): Exchange the two extreme values of day-length.

diff -r 79d4aae20aa3 -r c991c9834a24 lisp/calendar/solar.el
--- a/lisp/calendar/solar.el	Sun Nov 11 20:13:41 2001 +0000
+++ b/lisp/calendar/solar.el	Sun Nov 11 20:14:47 2001 +0000
@@ -316,8 +316,8 @@
     (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)