[Emacs-diffs] trunk r114793: * lisp/progmodes/inf-lisp.el (inferior-lisp-menu): Add menu.

[Glenn Morris]

------------------------------------------------------------
revno: 114793
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/15599
author: John Anthony <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2013-10-24 19:35:55 -0700
message:
  * lisp/progmodes/inf-lisp.el (inferior-lisp-menu): Add menu.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/inf-lisp.el     inflisp.el-20091113204419-o5vbwnq5f7feedwu-235

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-10-25 02:33:42 +0000
+++ b/lisp/ChangeLog    2013-10-25 02:35:55 +0000
@@ -1,3 +1,7 @@
+2013-10-25  John Anthony  <address@hidden>
+
+       * progmodes/inf-lisp.el (inferior-lisp-menu): Add menu.  (Bug#15599)
+
 2013-10-25  Glenn Morris  <address@hidden>
 
        * vc/vc.el (vc-print-log): Don't use a working revision unless
@@ -617,7 +621,7 @@
        * textmodes/text-mode.el (text-mode-map):
        Use auto-fill help text from menu-bar.el.
 
-2013-10-10  John Anthony  <address@hidden>  (tiny change)
+2013-10-10  John Anthony  <address@hidden>
 
        * textmodes/text-mode.el (text-mode-map): Add a menu.  (Bug#15562)
 

=== modified file 'lisp/progmodes/inf-lisp.el'
--- a/lisp/progmodes/inf-lisp.el        2013-02-22 01:59:28 +0000
+++ b/lisp/progmodes/inf-lisp.el        2013-10-25 02:35:55 +0000
@@ -91,6 +91,21 @@
     (define-key map "\C-c\C-v" 'lisp-show-variable-documentation)
     map))
 
+(easy-menu-define
+  inferior-lisp-menu
+  inferior-lisp-mode-map
+  "Inferior Lisp Menu"
+  '("Inf-Lisp"
+    ["Eval Last Sexp" lisp-eval-last-sexp t]
+    "--"
+    ["Load File..." lisp-load-file t]
+    ["Compile File..." lisp-compile-file t]
+    "--"
+    ["Show Arglist..." lisp-show-arglist t]
+    ["Describe Symbol..." lisp-describe-sym t]
+    ["Show Documentation for Function..." lisp-show-function-documentation t]
+    ["Show Documentation for Variable..." lisp-show-variable-documentation t]))
+
 ;;; These commands augment Lisp mode, so you can process Lisp code in
 ;;; the source files.
 (define-key lisp-mode-map "\M-\C-x"  'lisp-eval-defun)     ; Gnu convention