Commit a0be396a authored by John Anthony's avatar John Anthony Committed by Glenn Morris
Browse files

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

Fixes: debbugs:15599
parent f5bf77df
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> 2013-10-25 Glenn Morris <rgm@gnu.org>
* vc/vc.el (vc-print-log): Don't use a working revision unless * vc/vc.el (vc-print-log): Don't use a working revision unless
...@@ -617,7 +621,7 @@ ...@@ -617,7 +621,7 @@
* textmodes/text-mode.el (text-mode-map): * textmodes/text-mode.el (text-mode-map):
Use auto-fill help text from menu-bar.el. 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) * textmodes/text-mode.el (text-mode-map): Add a menu. (Bug#15562)
......
...@@ -91,6 +91,21 @@ mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword ...@@ -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) (define-key map "\C-c\C-v" 'lisp-show-variable-documentation)
map)) 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 ;;; These commands augment Lisp mode, so you can process Lisp code in
;;; the source files. ;;; the source files.
(define-key lisp-mode-map "\M-\C-x" 'lisp-eval-defun) ; Gnu convention (define-key lisp-mode-map "\M-\C-x" 'lisp-eval-defun) ; Gnu convention
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment