# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 971429736 0
# Node ID 0abae260f3374f6e6926a8166921c10ad00f236e
# Parent  4925b241a9ac9d8bacfc3695d4ff3518c73e3b9b
Bug fix for timeclock.el

diff -r 4925b241a9ac -r 0abae260f337 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Oct 13 09:34:13 2000 +0000
+++ b/lisp/ChangeLog	Fri Oct 13 09:35:36 2000 +0000
@@ -1,3 +1,8 @@
+2000-10-13  John Wiegley  <johnw@gnu.org>
+
+	* calendar/timeclock.el (timeclock-find-discrep): A fix to same
+	faulty math, where holiday hours were being computing as seconds.
+
 2000-10-13  John Wiegley  <johnw@gnu.org>
 
 	* desktop.el (desktop-buffer-modes-to-save): Added a global for
diff -r 4925b241a9ac -r 0abae260f337 lisp/calendar/timeclock.el
--- a/lisp/calendar/timeclock.el	Fri Oct 13 09:34:13 2000 +0000
+++ b/lisp/calendar/timeclock.el	Fri Oct 13 09:35:36 2000 +0000
@@ -679,7 +679,7 @@
 		 (setq last-date-limited
 		       (timeclock-time-to-date (cadr event))
 		       last-date-seconds
-		       (string-to-number (nth 2 event))))
+		       (* (string-to-number (nth 2 event)) 3600)))
 		((equal (car event) "i")
 		 (when (and (nth 2 event)
 			    (> (length (nth 2 event)) 0))