[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111569: * lisp-mode.el (emacs-lisp-m
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111569: * lisp-mode.el (emacs-lisp-mode-map): Add native profiler menu entries. |
Date: |
Sat, 19 Jan 2013 18:40:49 -0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111569
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2013-01-19 18:40:49 -0800
message:
* lisp-mode.el (emacs-lisp-mode-map): Add native profiler menu entries.
modified:
lisp/ChangeLog
lisp/emacs-lisp/lisp-mode.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-01-20 02:39:59 +0000
+++ b/lisp/ChangeLog 2013-01-20 02:40:49 +0000
@@ -1,5 +1,8 @@
2013-01-20 Glenn Morris <address@hidden>
+ * 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.
=== modified file 'lisp/emacs-lisp/lisp-mode.el'
--- a/lisp/emacs-lisp/lisp-mode.el 2013-01-19 20:38:13 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el 2013-01-20 02:40:49 +0000
@@ -335,6 +335,22 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111569: * lisp-mode.el (emacs-lisp-mode-map): Add native profiler menu entries.,
Glenn Morris <=