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

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/12 02:42:03

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

Log message:
        (emacs-lisp-mode-map): Add menu entries to elint file and directory.
        Remove initialization entry.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/lisp-mode.el?cvsroot=emacs&r1=1.243&r2=1.244

Patches:
Index: lisp-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/lisp-mode.el,v
retrieving revision 1.243
retrieving revision 1.244
diff -u -b -r1.243 -r1.244
--- lisp-mode.el        16 Aug 2009 15:40:52 -0000      1.243
+++ lisp-mode.el        12 Sep 2009 02:42:03 -0000      1.244
@@ -329,16 +329,19 @@
     (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 menu-map [lint] (cons "Linting" lint-map))
+    (define-key lint-map [lint-di]
+      '(menu-item "Lint Directory..." elint-directory
+                 :help "Lint a directory"))
+    (define-key lint-map [lint-f]
+      '(menu-item "Lint File..." elint-file
+                 :help "Lint a file"))
     (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"