(timeclock-time-less-p): Remove.

(timeclock-generate-report): Use `time-less-p'.

1 files changed, 3 insertions, 9 deletions

diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index 0507ddab64a..709ea25fbcb 100644
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -1129,12 +1129,6 @@ discrepancy, today's discrepancy, and the time worked today."
 
 ;;; A reporting function that uses timeclock-log-data
 
-(defun timeclock-time-less-p (t1 t2)
-  "Say whether time T1 is less than time T2."
-  (or (< (car t1) (car t2))
-      (and (= (car t1) (car t2))
-	   (< (nth 1 t1) (nth 1 t2)))))
-
 (defun timeclock-day-base (&optional time)
   "Given a time within a day, return 0:0:0 within that day.
 If optional argument TIME is non-nil, use that instead of the current time."
@@ -1190,12 +1184,12 @@ HTML-P is non-nil, HTML markup is added."
 				 (* 2 7 24 60 60))))
 	      two-week-len today-len)
 	  (while proj-data
-	    (if (not (timeclock-time-less-p
+	    (if (not (time-less-p
 		      (timeclock-entry-begin (car proj-data)) today))
 		(setq today-len (timeclock-entry-list-length proj-data)
 		      proj-data nil)
 	      (if (and (null two-week-len)
-		       (not (timeclock-time-less-p
+		       (not (time-less-p
 			     (timeclock-entry-begin (car proj-data))
 			     two-weeks-ago)))
 		  (setq two-week-len (timeclock-entry-list-length proj-data)))
@@ -1260,7 +1254,7 @@ HTML-P is non-nil, HTML markup is added."
 	  (while day-list
 	    (let ((i 0) (l 5))
 	      (while (< i l)
-		(unless (timeclock-time-less-p
+		(unless (time-less-p
 			 (timeclock-day-begin (car day-list))
 			 (aref lengths i))
 		  (let ((base (timeclock-time-to-seconds