From: Paul Eggert <eggert@cs.ucla.edu>
Date: Fri, 1 Jul 2011 00:24:48 +0000 (-0700)
Subject: * semantic.el (semantic-elapsed-time): Rewrite using
X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~299
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98768aebbe64e37b189364cf460aa4524339e3c0;p=emacs.git

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

time-subtract and float-time.
---

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.