From 10f9c35dea98582ea9390d353d4240f3a4ff2db8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 11 Nov 2001 20:14:47 +0000 Subject: [PATCH] (solar-sunrise-and-sunset): Exchange the two extreme values of day-length. --- lisp/calendar/solar.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.5