Re: point-at-final-line

[Stefan Monnier <monnier@iro.umontreal.ca>]

> (defmacro measure-time (&rest body)
>   "Measure and return the running time of the code block.
> Not mine: http://nullprogram.com/blog/2009/05/28/"
>   (declare (indent defun))
>   (let ((start (make-symbol "start")))
>     `(let ((,start (float-time)))
>        ,@body
>        (- (float-time) ,start))))
[...]
> ;; (insert (format "\n;; %f" (measure-time #'point-at-final-line)))

This doesn't actually call the function, so no wonder it will take the
same amount of time no matter which function you pass to it.


        Stefan