# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1206079701 0
# Node ID ade33d67202c8e52902ededf6efc28ef018933f5
# Parent  3546cd0119d256a30a15cdd71470d9a640e6ca85
(emacs-lisp-mode-map): Add menu entry for disassemble.

diff -r 3546cd0119d2 -r ade33d67202c lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Mar 21 06:02:51 2008 +0000
+++ b/lisp/ChangeLog	Fri Mar 21 06:08:21 2008 +0000
@@ -1,5 +1,8 @@
 2008-03-21  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add menu entry
+	for disassemble.
+
 	* vc.el (vc-status-mark-buffer-changed): Better deal with files in
 	the 'added state.
 	(vc-status-remove-up-to-date): New function.
diff -r 3546cd0119d2 -r ade33d67202c lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Fri Mar 21 06:02:51 2008 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Fri Mar 21 06:08:21 2008 +0000
@@ -315,6 +315,9 @@
 		  :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 [disas]
+      '(menu-item "Disassemble byte compiled object" disassemble
+		  :help "Print disassembled code for OBJECT in a buffer"))
     (define-key menu-map [byte-recompile]
       '(menu-item "Byte-recompile Directory..." byte-recompile-directory
 		  :help "Recompile every `.el' file in DIRECTORY that needs recompilation"))