summaryrefslogtreecommitdiff
path: root/lisp/calendar/lunar.el
diff options
context:
space:
mode:
authorEdward M. Reingold <reingold@emr.cs.iit.edu>1994-06-03 20:25:44 +0000
committerEdward M. Reingold <reingold@emr.cs.iit.edu>1994-06-03 20:25:44 +0000
commitbbc9e2585d2e93335d3a888800681a71b3b5b526 (patch)
tree16cde45db0cbe51623dba6164f4b88dbf9e53c9e /lisp/calendar/lunar.el
parent58384576c36532f722e91900334f61fee58d5648 (diff)
downloademacs-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.el5
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.