[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v |
Date: |
Fri, 14 Mar 2008 16:09:43 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 08/03/14 16:09:42
Index: emacs-lisp/lisp-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/lisp-mode.el,v
retrieving revision 1.213
retrieving revision 1.214
diff -u -b -r1.213 -r1.214
--- emacs-lisp/lisp-mode.el 11 Mar 2008 08:04:34 -0000 1.213
+++ emacs-lisp/lisp-mode.el 14 Mar 2008 16:09:39 -0000 1.214
@@ -272,16 +272,45 @@
(defvar emacs-lisp-mode-map
(let ((map (make-sparse-keymap "Emacs-Lisp"))
- (menu-map (make-sparse-keymap "Emacs-Lisp")))
+ (menu-map (make-sparse-keymap "Emacs-Lisp"))
+ (prof-map (make-sparse-keymap)))
(set-keymap-parent map lisp-mode-shared-map)
(define-key map "\e\t" 'lisp-complete-symbol)
(define-key map "\e\C-x" 'eval-defun)
(define-key map "\e\C-q" 'indent-pp-sexp)
(define-key map [menu-bar emacs-lisp] (cons "Emacs-Lisp" menu-map))
+ (define-key menu-map [profiling] (cons "Profiling" prof-map))
+ (define-key prof-map [prof-restall]
+ '(menu-item "Remove Instrumentation for All Functions" elp-restore-all
+ :help "Restore the original definitions of all functions
being profiled"))
+ (define-key prof-map [prof-restfunc]
+ '(menu-item "Remove Instrumentation for Function" elp-restore-function
+ :help "Restore an instrumented function to its original
definition"))
+
+ (define-key prof-map [sep-rem] '("--"))
+ (define-key prof-map [prof-resall]
+ '(menu-item "Remove Instrumentation for All Functions" elp-reset-all
+ :help "Reset the profiling information for all functions
being profiled"))
+ (define-key prof-map [prof-resfunc]
+ '(menu-item "Remove Instrumentation for Function" elp-reset-function
+ :help "Reset the profiling information for a function"))
+ (define-key prof-map [prof-res]
+ '(menu-item "Show Profiling Results" elp-results
+ :help "Display current profiling results"))
+ (define-key prof-map [prof-pack]
+ '(menu-item "Instrument Package" elp-instrument-package
+ :help "Instrument for profiling all function that start with
a prefix"))
+ (define-key prof-map [prof-func]
+ '(menu-item "Instrument Function" elp-instrument-function
+ :help "Instrument a function for profiling"))
+ (define-key menu-map [checkdoc]
+ '(menu-item "Check Documentation Strings" checkdock
+ :help "Check documentation strings for style requirements"))
(define-key menu-map [edebug-defun]
'(menu-item "Instrument Function for Debugging" edebug-defun
:help "Evaluate the top level form point is in, stepping
through with Edebug"
:keys "C-u C-M-x"))
+ (define-key menu-map [separator-byte] '("--"))
(define-key menu-map [byte-recompile]
'(menu-item "Byte-recompile Directory..." byte-recompile-directory
:help "Recompile every `.el' file in DIRECTORY that needs
recompilation"))
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v, Dan Nicolaescu, 2008/03/04
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v, Bastien Guerry, 2008/03/06
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v, Dan Nicolaescu, 2008/03/11
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v,
Dan Nicolaescu <=
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v, Dan Nicolaescu, 2008/03/16
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v, Dan Nicolaescu, 2008/03/17
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v, Dan Nicolaescu, 2008/03/21
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v, Dan Nicolaescu, 2008/03/22
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v, Dan Nicolaescu, 2008/03/27