diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2009-07-23 07:09:28 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2009-07-23 07:09:28 +0000 |
| commit | a707eb05425baef7d0cd27f469c2e5ae4b59f9ac (patch) | |
| tree | aa37066498b7ea0287ddc0cb63ca99e8038e7fd2 /lisp/emacs-lisp/lisp-mode.el | |
| parent | e05b6a4eb2d0fc0205dd166f4ac79f99089ef870 (diff) | |
| download | emacs-a707eb05425baef7d0cd27f469c2e5ae4b59f9ac.tar.gz | |
(emacs-lisp-mode-map): Add menu entries
for Lint.
Diffstat (limited to 'lisp/emacs-lisp/lisp-mode.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 9845d304c8f..49c35770dd7 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -273,6 +273,7 @@ font-lock keywords will not be case sensitive." (defvar emacs-lisp-mode-map (let ((map (make-sparse-keymap "Emacs-Lisp")) (menu-map (make-sparse-keymap "Emacs-Lisp")) + (lint-map (make-sparse-keymap)) (prof-map (make-sparse-keymap)) (tracing-map (make-sparse-keymap))) (set-keymap-parent map lisp-mode-shared-map) @@ -328,6 +329,16 @@ font-lock keywords will not be case sensitive." (define-key prof-map [prof-func] '(menu-item "Instrument Function..." elp-instrument-function :help "Instrument a function for profiling")) + (define-key menu-map [lint] (cons "Lint" lint-map)) + (define-key lint-map [lint-b] + '(menu-item "Lint Buffer" elint-current-buffer + :help "Lint the current buffer")) + (define-key lint-map [lint-d] + '(menu-item "Lint Defun" elint-defun + :help "Lint the function at point")) + (define-key lint-map [lint-in] + '(menu-item "Lint Initialize" elint-initialize + :help "Lint Initialize")) (define-key menu-map [edebug-defun] '(menu-item "Instrument Function for Debugging" edebug-defun :help "Evaluate the top level form point is in, stepping through with Edebug" |