* lisp/progmodes/inf-lisp.el (inferior-lisp-menu): Add menu.

Fixes: debbugs:15599

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 161e7be2ae0b58546f8e04967c45e36dc375c337..0bd907ce581f756505d2d8bb928e8cf65c4cb455 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-10-25  John Anthony  <john@jo.hnanthony.com>
+
+       * progmodes/inf-lisp.el (inferior-lisp-menu): Add menu.  (Bug#15599)
+
 2013-10-25  Glenn Morris  <rgm@gnu.org>
 
        * 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  <john@jo.hnanthony.com>  (tiny change)
+2013-10-10  John Anthony  <john@jo.hnanthony.com>
 
        * textmodes/text-mode.el (text-mode-map): Add a menu.  (Bug#15562)
 

diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el
index d73e9489d7cbf2b96b6aab0785103af2123b57b4..a9953e271dcfaeb62f6f54e0dcb4f61a95836c6d 100644 (file)
--- a/lisp/progmodes/inf-lisp.el
+++ b/lisp/progmodes/inf-lisp.el
@@ -91,6 +91,21 @@ mode.  Default is whitespace followed by 0 or 1 single-letter colon-keyword
     (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