Mercurial > emacs
changeset 40935:c991c9834a24
(solar-sunrise-and-sunset): Exchange the two extreme values of day-length.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 11 Nov 2001 20:14:47 +0000 |
| parents | 79d4aae20aa3 |
| children | 502ce3b46535 |
| files | lisp/calendar/solar.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)