/[emacs]/emacs/lisp/calendar/solar.el
ViewVC logotype

Diff of /emacs/lisp/calendar/solar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by pj, Mon Jul 16 07:46:48 2001 UTC revision 1.40 by rms, Sun Nov 11 20:14:47 2001 UTC
# Line 316  degrees to find out if polar regions hav Line 316  degrees to find out if polar regions hav
316      (if (not (and rise-time set-time))      (if (not (and rise-time set-time))
317          (if (or (and (> latitude 0) solar-spring-or-summer-season)          (if (or (and (> latitude 0) solar-spring-or-summer-season)
318                  (and (< latitude 0) (not solar-spring-or-summer-season)))                  (and (< latitude 0) (not solar-spring-or-summer-season)))
319            (setq day-length 24)              (setq day-length 0)
320            (setq day-length 0))            (setq day-length 24))
321          (setq day-length (- set-time rise-time)))          (setq day-length (- set-time rise-time)))
322      (list (if rise-time (+ rise-time (/ calendar-time-zone 60.0)) nil)      (list (if rise-time (+ rise-time (/ calendar-time-zone 60.0)) nil)
323            (if set-time (+ set-time (/ calendar-time-zone 60.0)) nil)            (if set-time (+ set-time (/ calendar-time-zone 60.0)) nil)

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26