From: Edward M. Reingold <reingold@emr.cs.iit.edu>
Date: Fri, 3 Jun 1994 20:25:44 +0000 (+0000)
Subject: (lunar-phase): Revised to use the rewritten and new fcns.
X-Git-Tag: emacs-19.34~8076
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e483c805af63421e5bacabe5d930a1cebcc6860f;p=emacs.git

(lunar-phase): Revised to use the rewritten and new fcns.
---

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.