# HG changeset patch # User Glenn Morris # Date 1252723323 0 # Node ID b866a533c9f3fdb1eef3b9cda984fdde4d9181ea # Parent 646ba543ede9989ac87c9f340c447f5d78ca1c33 (emacs-lisp-mode-map): Add menu entries to elint file and directory. Remove initialization entry. diff -r 646ba543ede9 -r b866a533c9f3 lisp/emacs-lisp/lisp-mode.el --- a/lisp/emacs-lisp/lisp-mode.el Sat Sep 12 02:41:39 2009 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Sat Sep 12 02:42:03 2009 +0000 @@ -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"