Commit 15df6fa4 authored by Glenn Morris's avatar Glenn Morris
Browse files

profiler.el tweaks

* profiler.el (profiler-running-p): New function.
(profiler-cpu-profile): Use profiler-running-p.
(profiler-report-mode-map): Add some more menu entries.
parent ee271528
2013-01-20 Glenn Morris <rgm@gnu.org>
* profiler.el (profiler-running-p): New function.
(profiler-cpu-profile): Use profiler-running-p.
(profiler-report-mode-map): Add some more menu entries.
2013-01-19 Glenn Morris <rgm@gnu.org>
 
* mail/unrmail.el (unrmail): Do not mangle the mbox From line;
......
......@@ -200,11 +200,18 @@ function name of a function itself."
(goto-char (point-min))
(read (current-buffer))))
(defun profiler-running-p (&optional mode)
"Return non-nil if the profiler is running.
Optional argument MODE means only check for the specified mode (cpu or mem)."
(cond ((eq mode 'cpu) (and (fboundp 'profiler-cpu-running-p)
(profiler-cpu-running-p)))
((eq mode 'mem) (profiler-memory-running-p))
(t (or (profiler-running-p 'cpu)
(profiler-running-p 'mem)))))
(defun profiler-cpu-profile ()
"Return CPU profile."
(when (and (fboundp 'profiler-cpu-running-p)
(fboundp 'profiler-cpu-log)
(profiler-cpu-running-p))
(when (profiler-running-p 'cpu)
(profiler-make-profile
:type 'cpu
:timestamp (current-time)
......@@ -457,7 +464,12 @@ RET: expand or collapse"))
["Compare Profile..." profiler-report-compare-profile :active t
:help "Compare current profile with another"]
["Write Profile..." profiler-report-write-profile :active t
:help "Write current profile to a file"]))
:help "Write current profile to a file"]
"--"
["Stop Profiler" profiler-stop :active (profiler-running-p)
:help "Stop profiling"]
["New Report" profiler-report :active (profiler-running-p)
:help "Make a new report"]))
map)
"Keymap for `profiler-report-mode'.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment