Mercurial > emacs

changeset 7777:c48a233494e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lunar-phase): Revised to use the rewritten and new fcns.
author Edward M. Reingold <reingold@emr.cs.iit.edu>
date Fri, 03 Jun 1994 20:25:44 +0000
parents f91e2cf8770b
children b0e2bd1e825a
files lisp/calendar/lunar.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/lunar.el	Fri Jun 03 17:10:42 1994 +0000
+++ b/lisp/calendar/lunar.el	Fri Jun 03 20:25:44 1994 +0000
@@ -166,8 +166,9 @@
                                 (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.