(emacs-lisp-mode-map): Add menu entries

for Lint.

2 files changed, 16 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d76566b7ec4..3a56748ebc3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 ...
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"