[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/lisp-mode.el

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/07/23 07:09:33

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: lisp-mode.el 

Log message:
        (emacs-lisp-mode-map): Add menu entries
        for Lint.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15853&r2=1.15854
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/lisp-mode.el?cvsroot=emacs&r1=1.241&r2=1.242

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15853
retrieving revision 1.15854
diff -u -b -r1.15853 -r1.15854
--- ChangeLog   23 Jul 2009 06:42:50 -0000      1.15853
+++ ChangeLog   23 Jul 2009 07:09:28 -0000      1.15854
@@ -1,3 +1,8 @@
+2009-07-23  Dan Nicolaescu  <address@hidden>
+
+       * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add menu entries
+       for Lint.
+
 2009-07-22  Dan Nicolaescu  <address@hidden>
 
        * vc.el (vc-print-log-internal): New function, split out from ...

Index: emacs-lisp/lisp-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/lisp-mode.el,v
retrieving revision 1.241
retrieving revision 1.242
diff -u -b -r1.241 -r1.242
--- emacs-lisp/lisp-mode.el     22 Jun 2009 06:24:36 -0000      1.241
+++ emacs-lisp/lisp-mode.el     23 Jul 2009 07:09:33 -0000      1.242
@@ -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"