Function: benchmark-elapse
benchmark-elapse is a macro defined in benchmark.el.gz.
Signature
(benchmark-elapse &rest FORMS)
Documentation
Return the time in seconds elapsed for execution of FORMS.
Source Code
;; Defined in /usr/src/emacs/lisp/emacs-lisp/benchmark.el.gz
(eval-when-compile (require 'subr-x)) ;For `named-let'.
(defmacro benchmark-elapse (&rest forms)
"Return the time in seconds elapsed for execution of FORMS."
(declare (indent 0) (debug t))
(let ((t1 (make-symbol "t1")))
`(let ((,t1 (current-time)))
,@forms
(float-time (time-since ,t1)))))