Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(lunar-phase): Add calendar-time-zone to solar ephemeris correction.

Browse source 
This fixes a bug where GMT was being reported as if it were local time.
This commit is contained in:
Paul Eggert 1993-12-05 18:29:24 +00:00
parent 9a51ed3ae4
commit 238c5cc1cc
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/calendar/lunar.el
View file

@ -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)))