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 | e483c805af63421e5bacabe5d930a1cebcc6860f (patch) | |
| tree | 152e187e8d00c3e658bc137b552442fd3d82478a /lisp/calendar/lunar.el | |
| parent | e9b2b94cd67cc994d1655a1a93a8d88ca6fd5be9 (diff) | |
| download | emacs-e483c805af63421e5bacabe5d930a1cebcc6860f.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. |