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

time-subtract and float-time.

diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index 8c12806df1e8766e6f9849e122279b8242023e21..75948ef8d18d9cb601fd48d290a6d8da94de66fe 100644 (file)
--- 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 c899988dc36058da60724155ae485ec79ac4d97c..ce9af0e12b57b209311b6670ec2f9260294c4fa8 100644 (file)
--- 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.