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 | f7c1f3c60bdee5fba29024041b28827743cc38de (patch) | |
| tree | 56478ad73f490659789f5d9caccc2aab251ddbd3 /lisp/calendar/lunar.el | |
| parent | 67d46c3fede9f01a88319c2cffc76cf8544e62fc (diff) | |
| download | emacs-f7c1f3c60bdee5fba29024041b28827743cc38de.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))) |