# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1207117780 0
# Node ID 8bdec2731742b32e9177195458bb406b5262a265
# Parent  851deb208446fda57613c4976cc6224fc76e2c51
(emacs-lisp-mode-map): Add menu entries
for tracing and re-builder.

diff -r 851deb208446 -r 8bdec2731742 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 02 03:52:36 2008 +0000
+++ b/lisp/ChangeLog	Wed Apr 02 06:29:40 2008 +0000
@@ -1,3 +1,8 @@
+2008-04-02  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add menu entries
+	for tracing and re-builder.
+
 2008-04-02  Glenn Morris  <rgm@gnu.org>
 
 	* calendar/appt.el (appt-disp-window-function): Doc fix.
diff -r 851deb208446 -r 8bdec2731742 lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Wed Apr 02 03:52:36 2008 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Wed Apr 02 06:29:40 2008 +0000
@@ -273,7 +273,8 @@
 (defvar emacs-lisp-mode-map 
   (let ((map (make-sparse-keymap "Emacs-Lisp"))
 	(menu-map (make-sparse-keymap "Emacs-Lisp"))
-	(prof-map (make-sparse-keymap)))
+	(prof-map (make-sparse-keymap))
+	(tracing-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)
@@ -286,6 +287,23 @@
     (define-key menu-map [checkdoc]
       '(menu-item "Check Documentation Strings" checkdoc
 		  :help "Check documentation strings for style requirements"))
+    (define-key menu-map [re-builder]
+      '(menu-item "Construct Regexp" re-builder
+		  :help "Construct a regexp interactively"))
+    (define-key menu-map [tracing] (cons "Tracing" tracing-map))
+    (define-key tracing-map [tr-a]
+      '(menu-item "Untrace all" untrace-all
+		  :help "Untraces all currently traced functions"))
+    (define-key tracing-map [tr-uf]
+      '(menu-item "Untrace function..." untrace-function
+		  :help "Untraces FUNCTION and possibly activates all remaining advice"))
+    (define-key tracing-map [tr-sep] '("--"))
+    (define-key tracing-map [tr-q]
+      '(menu-item "Trace function quietly..." trace-function
+		  :help "Trace the function with trace output going quietly to a buffer"))
+    (define-key tracing-map [tr-f]
+      '(menu-item "Trace function..." trace-function
+		  :help "Trace the function given as a argument"))
     (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