From 98768aebbe64e37b189364cf460aa4524339e3c0 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Thu, 30 Jun 2011 17:24:48 -0700 Subject: [PATCH] * semantic.el (semantic-elapsed-time): Rewrite using time-subtract and float-time. --- lisp/cedet/ChangeLog | 5 +++++ lisp/cedet/semantic.el | 4 +--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index 8c12806df1e..75948ef8d18 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog @@ -1,3 +1,8 @@ +2011-07-01 Paul Eggert + + * semantic.el (semantic-elapsed-time): Rewrite using + time-subtract and float-time. + 2011-05-11 Glenn Morris * semantic/wisent/javascript.el (semantic-get-local-variables): diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index c899988dc36..ce9af0e12b5 100644 --- a/lisp/cedet/semantic.el +++ b/lisp/cedet/semantic.el @@ -379,9 +379,7 @@ Do not set this yourself. Call `semantic-debug'.") (defun semantic-elapsed-time (start end) "Copied from elp.el. Was `elp-elapsed-time'. Argument START and END bound the time being calculated." - (+ (* (- (car end) (car start)) 65536.0) - (- (car (cdr end)) (car (cdr start))) - (/ (- (car (cdr (cdr end))) (car (cdr (cdr start)))) 1000000.0))) + (float-time (time-subtract end start))) (defun bovinate (&optional clear) "Parse the current buffer. Show output in a temp buffer. -- 2.39.2