From a4924b14919a427bf14913608b97d14a8c8e221f Mon Sep 17 00:00:00 2001 From: Tomohiro Matsuyama Date: Wed, 22 Aug 2012 16:08:36 +0900 Subject: [PATCH] * profiler.el (profiler-start): Change mode spec. --- lisp/ChangeLog | 1 + 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 * profiler.el: Switch to cl-lib. + (profiler-start): Change mode spec. 2012-08-22 Daiki Ueno 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")))) -- 2.11.4.GIT