procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
time-subtract and float-time.
This commit is contained in:
Paul Eggert 2011-06-30 17:24:48 -07:00
parent 5777162a3e
commit 98768aebbe
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/cedet/semantic.el
View file

@ -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.