Gregor Zattler <[email protected]> writes:
> * Nicolas Goaziou <[email protected]> [17. Jun. 2015]:
>> Gregor Zattler <[email protected]> writes:
>>> I would like to help but need help myself on how to produce
>>> profiler reports.
>>
>> M-x profiler-start
>>
>> Do something slow
>>
>> M-x profiler-report
>
> Thanks, this seemed rather easy and I open the org file in
> question in overview now:
>
> - most of the time it’s not slow! That’s great and a big
> difference to months ago, when it was slow very often.
>
> - but there some hangs now and then. At that moment I cannot
> start the profiler. If I start the profiler at the
> beginning of using this org file and stop it maybe hours later
> after something was slow: Would such report be helpful?
FWIW, I've always used:
--8<---------------cut here---------------start------------->8---
;; Do not switch to OVERVIEW at startup.
(setq org-startup-folded nil)
--8<---------------cut here---------------end--------------->8---
and I don't see any particular slowdown for my Org files:
--8<---------------cut here---------------start------------->8---
(Info) Found file
~/Public/Repositories/org-mode/lisp/../doc/library-of-babel.org in 1.28 s
(Info) Found file ~/org/personal/travaux-listing.org in 2.32 s
(Info) Found file ~/org/personal/travaux.org in 0.28 s
(Info) Found file ~/org/personal/conso.txt in 1.71 s
(Info) Found file ~/org/notes/Notes-on-Lisp.txt in 0.61 s
(Info) Found file ~/org/personal/Personal.org in 0.97 s
--8<---------------cut here---------------end--------------->8---
PS- Code to get the above timings:
--8<---------------cut here---------------start------------->8---
(defadvice find-file (around my/find-file activate)
"Open the file named FILENAME and report time spent."
(let ((filename (ad-get-arg 0))
(find-file-time-start (float-time)))
(message "(Info) Finding file %s..." filename)
ad-do-it
(message "(Info) Found file %s in %.2f s" filename
(- (float-time) find-file-time-start))))
--8<---------------cut here---------------end--------------->8---
Best regards,
Seb
--
Sebastien Vauban
