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

2 files changed, 6 insertions, 0 deletions

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"))