From 238c5cc1cc55dfb5a73d4d04937f9ccda7d41e18 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 5 Dec 1993 18:29:24 +0000 Subject: [PATCH] (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. --- lisp/calendar/lunar.el | 8 +++++--- 1 file 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 ;; 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))) -- 2.39.5