From 93260283763e4e7a0b7972d6df0ce5f73b0bbc5e Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sun, 2 Mar 2008 01:10:30 +0000 Subject: [PATCH] (compilation-menu-map): Add menu entries for useful options. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/compile.el | 33 ++++++++++++++++++++++++++++++++- 2 files changed, 37 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f77ca943161..be67b888ada 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-03-02 Dan Nicolaescu + + * progmodes/compile.el (compilation-menu-map): Add menu entries + for useful options. + 2008-03-01 Dan Nicolaescu Glenn Morris diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index b75180e2c51..cc170e4b277 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1288,9 +1288,40 @@ Returns the compilation buffer created." (enlarge-window (- height (window-height)))))))) (defvar compilation-menu-map - (let ((map (make-sparse-keymap "Errors"))) + (let ((map (make-sparse-keymap "Errors")) + (opt-map (make-sparse-keymap "Skip"))) (define-key map [stop-subjob] '("Stop Compilation" . kill-compilation)) + (define-key map [compilation-mode-separator3] + '("----" . nil)) + (define-key map [compilation-next-error-follow-minor-mode] + '(menu-item + "Auto Error Display" next-error-follow-minor-mode + :help "Display the error under cursor when moving the cursor" + :button (:toggle . next-error-follow-minor-mode))) + (define-key map [compilation-skip] + (cons "Skip Less Important Messages" opt-map)) + (define-key opt-map [compilation-skip-none] + '(menu-item "Don't Skip Any Messages" + (lambda () + (interactive) + (customize-set-variable 'compilation-skip-threshold 0)) + :help "Do not skip any type of messages" + :button (:radio . (eq compilation-skip-threshold 0)))) + (define-key opt-map [compilation-skip-info] + '(menu-item "Skip Info" + (lambda () + (interactive) + (customize-set-variable 'compilation-skip-threshold 1)) + :help "Skip anything less than warning" + :button (:radio . (eq compilation-skip-threshold 1)))) + (define-key opt-map [compilation-skip-warning-and-info] + '(menu-item "Skip Warnings and Info" + (lambda () + (interactive) + (customize-set-variable 'compilation-skip-threshold 2)) + :help "Skip over Warnings and Info, stop for errors" + :button (:radio . (eq compilation-skip-threshold 2)))) (define-key map [compilation-mode-separator2] '("----" . nil)) (define-key map [compilation-first-error] -- 2.39.2