Mercurial > emacs
changeset 104045:1b791c5d1cee
(emacs-lisp-mode-map): Add menu entries
for Lint.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 23 Jul 2009 07:09:28 +0000 |
| parents | ba1929fee199 |
| children | 95a3747ab8d5 |
| files | lisp/ChangeLog lisp/emacs-lisp/lisp-mode.el |
| diffstat | 2 files changed, 16 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jul 23 06:46:16 2009 +0000 +++ b/lisp/ChangeLog Thu Jul 23 07:09:28 2009 +0000 @@ -1,3 +1,8 @@ +2009-07-23 Dan Nicolaescu <dann@ics.uci.edu> + + * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add menu entries + for Lint. + 2009-07-22 Dan Nicolaescu <dann@ics.uci.edu> * vc.el (vc-print-log-internal): New function, split out from ...
--- a/lisp/emacs-lisp/lisp-mode.el Thu Jul 23 06:46:16 2009 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Thu Jul 23 07:09:28 2009 +0000 @@ -273,6 +273,7 @@ (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 @@ (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"