diff options
| author | Tomohiro Matsuyama <tomo@cx4a.org> | 2012-08-22 16:08:36 +0900 |
|---|---|---|
| committer | Tomohiro Matsuyama <tomo@cx4a.org> | 2012-08-22 16:08:36 +0900 |
| commit | a4924b14919a427bf14913608b97d14a8c8e221f (patch) | |
| tree | 3d241b91c8dbd445aa3ad3c665a1ce024087962f | |
| parent | b02baf7f7ce532bbb6cb51ebff63a208bf9fb882 (diff) | |
| download | emacs-a4924b14919a427bf14913608b97d14a8c8e221f.tar.gz | |
* profiler.el (profiler-start): Change mode spec.
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/profiler.el | 6 |
2 files changed, 4 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6c8a4f9ec84..366380b4ec4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,7 @@ 2012-08-22 Tomohiro Matsuyama <tomo@cx4a.org> * profiler.el: Switch to cl-lib. + (profiler-start): Change mode spec. 2012-08-22 Daiki Ueno <ueno@unixuser.org> diff --git a/lisp/profiler.el b/lisp/profiler.el index 8428b38c586..db2d0eb461a 100644 --- a/lisp/profiler.el +++ b/lisp/profiler.el @@ -538,16 +538,16 @@ otherwise collapse the entry." ;;;###autoload (defun profiler-start (mode) (interactive - (list (intern (completing-read "Mode: " '("cpu" "memory" "cpu&memory") + (list (intern (completing-read "Mode: " '("cpu" "mem" "cpu+mem") nil t nil nil "cpu")))) (cl-ecase mode (cpu (sample-profiler-start profiler-sample-interval) (message "CPU profiler started")) - (memory + (mem (memory-profiler-start) (message "Memory profiler started")) - (cpu&memory + (cpu+mem (sample-profiler-start profiler-sample-interval) (memory-profiler-start) (message "CPU and memory profiler started")))) |