From f9a9491fbef44d63b528f657c468748198964dcb Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 14 Mar 2008 16:09:39 +0000 Subject: [PATCH] (emacs-lisp-mode-map): Add menu entries for checkdoc and profiling. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/lisp-mode.el | 31 ++++++++++++++++++++++++++++++- 2 files changed, 35 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0ccb4718b86..7e9cab82e94 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-03-14 Dan Nicolaescu + + * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add menu entries + for checkdoc and profiling. + 2008-03-14 Bastien Guerry * textmodes/flyspell.el (nxml-mode): Add the right. diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 16295f31572..25640042bb3 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -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")) -- 2.39.2