# HG changeset patch
# User Brian Fox <bfox@gnu.org>
# Date 748594275 0
# Node ID 1079bcdb68b4103e6f77ca9cc8d7333f43b5e717
# Parent  4f348ddd841eb46b03fcb17d06977ff8ca1fe217
(calendar-absolute-from-time): Fix typo by interchanging (floor) and (%).

diff -r 4f348ddd841e -r 1079bcdb68b4 lisp/calendar/cal-dst.el
--- 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.