mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(lisp-mode-map): Add menu.

Browse source
This commit is contained in:
Dan Nicolaescu 2008-04-30 16:10:05 +00:00
parent 5d8137abac
commit 458c4642c5
2 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2008-04-30 Dan Nicolaescu <dann@ics.uci.edu>
* emacs-lisp/lisp-mode.el (lisp-mode-map): Add menu.
2008-04-30 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/octave-mod.el (octave-help): New function.

13
lisp/emacs-lisp/lisp-mode.el
View file

@ -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.")