Mercurial > emacs
changeset 5213:e080f780f381
(lunar-phase): Add calendar-time-zone to solar ephemeris correction.
This fixes a bug where GMT was being reported as if it were local time.
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Sun, 05 Dec 1993 18:29:24 +0000 |
| parents | f8ba69b02832 |
| children | c4bf07b226be |
| files | lisp/calendar/lunar.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/lunar.el Fri Dec 03 09:30:38 1993 +0000 +++ b/lisp/calendar/lunar.el Sun Dec 05 18:29:24 1993 +0000 @@ -1,6 +1,6 @@ ;;; lunar.el --- calendar functions for phases of the moon. -;; Copyright (C) 1992 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993 Free Software Foundation, Inc. ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> ;; Keywords: calendar @@ -160,10 +160,12 @@ ((= phase 2) (- adjustment adj)) (t adjustment))) (date (+ date adjustment)) - (date (+ date (- (/ (solar-ephemeris-correction + (date (+ date (/ (- calendar-time-zone + (solar-ephemeris-correction (extract-calendar-year (calendar-gregorian-from-absolute - (truncate date)))) 60.0 24.0)))) + (truncate date))))) + 60.0 24.0))) (time (* 24 (- date (truncate date)))) (date (calendar-gregorian-from-absolute (truncate date)))) (list date (solar-time-string time date) phase)))