diff options
| author | Paul Eggert <eggert@twinsun.com> | 1993-12-05 18:29:24 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1993-12-05 18:29:24 +0000 |
| commit | 238c5cc1cc55dfb5a73d4d04937f9ccda7d41e18 (patch) | |
| tree | 3494c4b598a786e6a9276caf8ec1e7fa4401176c /lisp/calendar/lunar.el | |
| parent | 9a51ed3ae46fef0fbd5d21778cb1c8c4667bf667 (diff) | |
| download | emacs-238c5cc1cc55dfb5a73d4d04937f9ccda7d41e18.tar.gz | |
(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.
Diffstat (limited to 'lisp/calendar/lunar.el')
| -rw-r--r-- | lisp/calendar/lunar.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/calendar/lunar.el b/lisp/calendar/lunar.el index 4f9b5a35eaf..1d8e45492ea 100644 --- a/lisp/calendar/lunar.el +++ b/lisp/calendar/lunar.el @@ -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 @@ remainder mod 4 gives the phase: 0 new moon, 1 first quarter, 2 full moon, ((= 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))) |