* semantic.el (semantic-elapsed-time): Rewrite using

time-subtract and float-time.

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  <eggert@cs.ucla.edu>
+
+        * semantic.el (semantic-elapsed-time): Rewrite using
+        time-subtract and float-time.
+
 2011-05-11  Glenn Morris  <rgm@gnu.org>
 
         * 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.