From a707eb05425baef7d0cd27f469c2e5ae4b59f9ac Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Thu, 23 Jul 2009 07:09:28 +0000 Subject: [PATCH] (emacs-lisp-mode-map): Add menu entries for Lint. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/lisp-mode.el | 11 +++++++++++ 2 files changed, 16 insertions(+) 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 + + * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add menu entries + for Lint. + 2009-07-22 Dan Nicolaescu * 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" -- 2.39.2