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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d5d71575b09ab5fdaff52563d242dd6608429c9..124abd127d97a22b5bbcc540b643a5931fe4d4cd 100644 (file)
--- 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 3381116189ff8069b5cdb558ddff87ca8c41e841..1d551e0eae26f8942ee2b366f60043a57121fad0 100644 (file)
--- 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"))