From a0be396a4a31ed67e3953cdac830945bbeb494a9 Mon Sep 17 00:00:00 2001 From: John Anthony Date: Thu, 24 Oct 2013 19:35:55 -0700 Subject: [PATCH] * lisp/progmodes/inf-lisp.el (inferior-lisp-menu): Add menu. Fixes: debbugs:15599 --- lisp/ChangeLog | 6 +++++- lisp/progmodes/inf-lisp.el | 15 +++++++++++++++ 2 files changed, 20 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 161e7be2ae0..0bd907ce581 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-10-25 John Anthony + + * progmodes/inf-lisp.el (inferior-lisp-menu): Add menu. (Bug#15599) + 2013-10-25 Glenn Morris * 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 (tiny change) +2013-10-10 John Anthony * 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 d73e9489d7c..a9953e271dc 100644 --- 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 -- 2.39.2