From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 11 Nov 2001 20:14:47 +0000 (+0000)
Subject: (solar-sunrise-and-sunset): Exchange the two extreme values of day-length.
X-Git-Tag: ttn-vms-21-2-B4~18654
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=10f9c35dea98582ea9390d353d4240f3a4ff2db8;p=emacs.git

(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 2fa06565e7d..04998100a24 100644
--- 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)