Commit 93260283 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

(compilation-menu-map): Add menu entries

for useful options.
parent 7d6f3b3a
2008-03-02 Dan Nicolaescu <>
* progmodes/compile.el (compilation-menu-map): Add menu entries
for useful options.
2008-03-01 Dan Nicolaescu <>
Glenn Morris <>
......@@ -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]
"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 ()
(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 ()
(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 ()
(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]
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment