* profiler.el (profiler-start): Change mode spec.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c8a4f9ec84e63401066b55275a775867c460b1b..366380b4ec49b8bb263b997950578545ec7e4f5e 100644 (file)
--- 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 8428b38c58600d8cff923eb1ed2016fefe63189d..db2d0eb461a5df4ef098418522a0afa5792e0aa3 100644 (file)
--- 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"))))