# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1205510979 0
# Node ID 9b852833cd26d2b7879dde34c6f0af15c83f81e3
# Parent  1814780cd6284777606cf1b2b4b3dc2cac1de55c
(emacs-lisp-mode-map): Add menu entries
for checkdoc and profiling.

diff -r 1814780cd628 -r 9b852833cd26 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Mar 14 15:53:46 2008 +0000
+++ b/lisp/ChangeLog	Fri Mar 14 16:09:39 2008 +0000
@@ -1,3 +1,8 @@
+2008-03-14  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add menu entries
+	for checkdoc and profiling.
+
 2008-03-14  Bastien Guerry  <bzg@altern.org>
 
 	* textmodes/flyspell.el (nxml-mode): Add the right.
diff -r 1814780cd628 -r 9b852833cd26 lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Fri Mar 14 15:53:46 2008 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Fri Mar 14 16:09:39 2008 +0000
@@ -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"))