From 76314f2c03b15ca84074a0d955f49cbae0e78d2a Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 12 Sep 2009 02:42:03 +0000 Subject: [PATCH] (emacs-lisp-mode-map): Add menu entries to elint file and directory. Remove initialization entry. --- lisp/emacs-lisp/lisp-mode.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 3360600fbff..29f8d5eb52c 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -329,16 +329,19 @@ 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 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" -- 2.39.2