diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-06-30 18:52:41 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-06-30 18:52:41 -0700 |
| commit | ee6f1be04b41b6cf530cfb34a5b30f0c0649f5b0 (patch) | |
| tree | cf82a48d7d1b5f84e3f7c79433f85675afd9f829 /lisp/nxml/rng-maint.el | |
| parent | 240a298f78ab504afcf0792e3061be9b95c8c581 (diff) | |
| download | emacs-ee6f1be04b41b6cf530cfb34a5b30f0c0649f5b0.tar.gz | |
* nxml/rng-maint.el (rng-time-function): Rewrite using time-subtract.
This yields a more-accurate answer.
(rng-time-to-float): Remove; no longer needed.
Diffstat (limited to 'lisp/nxml/rng-maint.el')
| -rw-r--r-- | lisp/nxml/rng-maint.el | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lisp/nxml/rng-maint.el b/lisp/nxml/rng-maint.el index d31740f0ca2..bd5b3136d54 100644 --- a/lisp/nxml/rng-maint.el +++ b/lisp/nxml/rng-maint.el @@ -224,19 +224,13 @@ ;;; Timing -(defun rng-time-to-float (time) - (+ (* (nth 0 time) 65536.0) - (nth 1 time) - (/ (nth 2 time) 1000000.0))) - (defun rng-time-function (function &rest args) (let* ((start (current-time)) (val (apply function args)) (end (current-time))) (message "%s ran in %g seconds" function - (- (rng-time-to-float end) - (rng-time-to-float start))) + (float-time (time-subtract end start))) val)) (defun rng-time-tokenize-buffer () |