From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Fri, 21 Mar 2008 06:08:21 +0000 (+0000)
Subject: (emacs-lisp-mode-map): Add menu entry for disassemble.
X-Git-Tag: emacs-pretest-23.0.90~7009
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=175e5186e228911eb75e1d94f38f1ef27c336858;p=emacs.git

(emacs-lisp-mode-map): Add menu entry for disassemble.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d5d71575b0..124abd127d9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 3381116189f..1d551e0eae2 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -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"))