diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-11-11 20:14:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-11-11 20:14:47 +0000 |
| commit | 28e431a167d5673ff3a20bcfcee17b80bf79e03d (patch) | |
| tree | 02abe36b508141d5c5545cc40c7653d8837812b2 /lisp/calendar | |
| parent | bb3f8a825e1fa419d28d6ae29777610a58fd6785 (diff) | |
| download | emacs-28e431a167d5673ff3a20bcfcee17b80bf79e03d.tar.gz | |
(solar-sunrise-and-sunset): Exchange the two extreme values of day-length.
Diffstat (limited to 'lisp/calendar')
| -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." (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) |