changeset 4756:1079bcdb68b4

(calendar-absolute-from-time): Fix typo by interchanging (floor) and (%).
author Brian Fox <bfox@gnu.org>
date Tue, 21 Sep 1993 06:51:15 +0000
parents 4f348ddd841e
children c21680a58d1e
files lisp/calendar/cal-dst.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-dst.el	Tue Sep 21 06:47:21 1993 +0000
+++ b/lisp/calendar/cal-dst.el	Tue Sep 21 06:51:15 1993 +0000
@@ -64,7 +64,7 @@
 	     ;; floor((2^16 h +l) / (60*60*24))
 	     (* 512 (floor h 675)) (floor u 675))
 	  ;; (2^16 h +l) % (60*60*24)
-	  (+ (* (mod u 675) 128) (mod l 128)))))
+	  (+ (* (% u 675) 128) (% l 128)))))
 
 (defun calendar-time-from-absolute (abs-date s)
   "Time of absolute date ABS-DATE, S seconds after midnight.