diff options
author | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1994-06-03 20:25:44 +0000 |
---|---|---|
committer | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1994-06-03 20:25:44 +0000 |
commit | bbc9e2585d2e93335d3a888800681a71b3b5b526 (patch) | |
tree | 16cde45db0cbe51623dba6164f4b88dbf9e53c9e /lisp/calendar/lunar.el | |
parent | 58384576c36532f722e91900334f61fee58d5648 (diff) | |
download | emacs-bbc9e2585d2e93335d3a888800681a71b3b5b526.tar.gz |
(lunar-phase): Revised to use the rewritten and new fcns.
Diffstat (limited to 'lisp/calendar/lunar.el')
-rw-r--r-- | lisp/calendar/lunar.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/calendar/lunar.el b/lisp/calendar/lunar.el index 0de568e55ed..99a5507f7bd 100644 --- a/lisp/calendar/lunar.el +++ b/lisp/calendar/lunar.el @@ -166,8 +166,9 @@ remainder mod 4 gives the phase: 0 new moon, 1 first quarter, 2 full moon, (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))) + (date (calendar-gregorian-from-absolute (truncate date))) + (adj (solar-adj-time-for-dst date time))) + (list (car adj) (apply 'solar-time-string (cdr adj)) phase))) (defun lunar-phase-name (phase) "Name of lunar PHASE. |