From: Glenn Morris <rgm@gnu.org>
Date: Sun, 20 Jan 2013 02:40:49 +0000 (-0800)
Subject: * lisp-mode.el (emacs-lisp-mode-map): Add native profiler menu entries.
X-Git-Tag: emacs-24.3.90~173^2~7^2~253
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a576cc76c8267928c601da79f370f98fa1834e8e;p=emacs.git

* lisp-mode.el (emacs-lisp-mode-map): Add native profiler menu entries.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 02c79ef1920..d439c661401 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-01-20  Glenn Morris  <rgm@gnu.org>
 
+	* emacs-lisp/lisp-mode.el (emacs-lisp-mode-map):
+	Add native profiler menu entries.
+
 	* profiler.el (profiler-running-p): New function.
 	(profiler-cpu-profile): Use profiler-running-p.
 	(profiler-report-mode-map): Add some more menu entries.
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 9c2bd1a29bd..3d13dc451b2 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -335,6 +335,22 @@ font-lock keywords will not be case sensitive."
     (bindings--define-key prof-map [prof-func]
       '(menu-item "Instrument Function..." elp-instrument-function
 		  :help "Instrument a function for profiling"))
+    ;; Maybe this should be in a separate submenu from the ELP stuff?
+    (bindings--define-key prof-map [sep-natprof] menu-bar-separator)
+    (bindings--define-key prof-map [prof-natprof-stop]
+      '(menu-item "Stop Native Profiler" profiler-stop
+		  :help "Stop recording profiling information"
+		  :enable (and (featurep 'profiler)
+			       (profiler-running-p))))
+    (bindings--define-key prof-map [prof-natprof-report]
+      '(menu-item "Show Profiler Report" profiler-report
+		  :help "Show the current profiler report"
+		  :enable (and (featurep 'profiler)
+			       (profiler-running-p))))
+    (bindings--define-key prof-map [prof-natprof-start]
+      '(menu-item "Start Native Profiler..." profiler-start
+		  :help "Start recording profiling information"))
+
     (bindings--define-key menu-map [lint] (cons "Linting" lint-map))
     (bindings--define-key lint-map [lint-di]
       '(menu-item "Lint Directory..." elint-directory