diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-04-30 16:10:05 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-04-30 16:10:05 +0000 |
| commit | 458c4642c55b5920ec0a678d1aa9541e11f534fe (patch) | |
| tree | 4f8c2be97cabc0dd29538b52467ce7cbe4cd47f2 /lisp/emacs-lisp | |
| parent | 5d8137abac262ce380105a6d2c38783e07c2f4e1 (diff) | |
| download | emacs-458c4642c55b5920ec0a678d1aa9541e11f534fe.tar.gz emacs-458c4642c55b5920ec0a678d1aa9541e11f534fe.tar.bz2 emacs-458c4642c55b5920ec0a678d1aa9541e11f534fe.zip | |
(lisp-mode-map): Add menu.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 48f0b9b7860..9faef35d610 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -431,10 +431,21 @@ if that value is non-nil." (put 'emacs-lisp-mode 'custom-mode-group 'lisp) (defvar lisp-mode-map - (let ((map (make-sparse-keymap))) + (let ((map (make-sparse-keymap)) + (menu-map (make-sparse-keymap "Lisp"))) (set-keymap-parent map lisp-mode-shared-map) (define-key map "\e\C-x" 'lisp-eval-defun) (define-key map "\C-c\C-z" 'run-lisp) + (define-key map [menu-bar lisp] (cons "Lisp" menu-map)) + (define-key menu-map [run-lisp] + '(menu-item "Run inferior Lisp" run-lisp + :help "Run an inferior Lisp process, input and output via buffer `*inferior-lisp*'")) + (define-key menu-map [ev-def] + '(menu-item "Eval defun" lisp-eval-defun + :help "Send the current defun to the Lisp process made by M-x run-lisp")) + (define-key menu-map [ind-sexp] + '(menu-item "Indent sexp" indent-sexp + :help "Indent each line of the list starting just after point")) map) "Keymap for ordinary Lisp mode. All commands in `lisp-mode-shared-map' are inherited by this map.") |