summaryrefslogtreecommitdiff
path: root/lisp/calendar/lunar.el
diff options
context:
space:
mode:
authorEdward M. Reingold <reingold@emr.cs.iit.edu>1994-03-14 17:21:31 +0000
committerEdward M. Reingold <reingold@emr.cs.iit.edu>1994-03-14 17:21:31 +0000
commitd928d7e5624d24cf27ff62d8a431adb1bca7e0e8 (patch)
treef0be4d0ec111007af8702f40b225701d5f88a0c7 /lisp/calendar/lunar.el
parente14e13a4cdb8990bfceecb61b52f4a635c35eb60 (diff)
downloademacs-d928d7e5624d24cf27ff62d8a431adb1bca7e0e8.tar.gz
(lunar-phase): Use calendar-mod instead of % so that it
works for negative phase numbers.
Diffstat (limited to 'lisp/calendar/lunar.el')
-rw-r--r--lisp/calendar/lunar.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/lunar.el b/lisp/calendar/lunar.el
index dd0501083b6..9fe7f6fa530 100644
--- a/lisp/calendar/lunar.el
+++ b/lisp/calendar/lunar.el
@@ -84,7 +84,7 @@
Integer below INDEX/4 gives the lunation number, counting from Jan 1, 1900;
remainder mod 4 gives the phase: 0 new moon, 1 first quarter, 2 full moon,
3 last quarter."
- (let* ((phase (% index 4))
+ (let* ((phase (calendar-mod index 4))
(index (/ index 4.0))
(time (/ index 1236.85))
(date (+ (calendar-absolute-from-gregorian '(1 0.5 1900))