diff options
| author | Richard M. Stallman | 2001-11-11 20:14:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-11-11 20:14:47 +0000 |
| commit | 10f9c35dea98582ea9390d353d4240f3a4ff2db8 (patch) | |
| tree | 9d900f0cd1cbb760648a02515783ee39c5ebdca9 | |
| parent | a4cd0cd7389a38e9e9a3a86b72c0ed515814caac (diff) | |
| download | emacs-10f9c35dea98582ea9390d353d4240f3a4ff2db8.tar.gz emacs-10f9c35dea98582ea9390d353d4240f3a4ff2db8.zip | |
(solar-sunrise-and-sunset): Exchange the two extreme values of day-length.
| -rw-r--r-- | lisp/calendar/solar.el | 4 |
1 files 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." | |||
| 316 | (if (not (and rise-time set-time)) | 316 | (if (not (and rise-time set-time)) |
| 317 | (if (or (and (> latitude 0) solar-spring-or-summer-season) | 317 | (if (or (and (> latitude 0) solar-spring-or-summer-season) |
| 318 | (and (< latitude 0) (not solar-spring-or-summer-season))) | 318 | (and (< latitude 0) (not solar-spring-or-summer-season))) |
| 319 | (setq day-length 24) | 319 | (setq day-length 0) |
| 320 | (setq day-length 0)) | 320 | (setq day-length 24)) |
| 321 | (setq day-length (- set-time rise-time))) | 321 | (setq day-length (- set-time rise-time))) |
| 322 | (list (if rise-time (+ rise-time (/ calendar-time-zone 60.0)) nil) | 322 | (list (if rise-time (+ rise-time (/ calendar-time-zone 60.0)) nil) |
| 323 | (if set-time (+ set-time (/ calendar-time-zone 60.0)) nil) | 323 | (if set-time (+ set-time (/ calendar-time-zone 60.0)) nil) |