Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
93260283
Commit
93260283
authored
Mar 02, 2008
by
Dan Nicolaescu
Browse files
(compilation-menu-map): Add menu entries
for useful options.
parent
7d6f3b3a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
37 additions
and
1 deletion
+37
-1
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/progmodes/compile.el
lisp/progmodes/compile.el
+32
-1
No files found.
lisp/ChangeLog
View file @
93260283
2008-03-02 Dan Nicolaescu <dann@ics.uci.edu>
* progmodes/compile.el (compilation-menu-map): Add menu entries
for useful options.
2008-03-01 Dan Nicolaescu <dann@ics.uci.edu>
Glenn Morris <rgm@gnu.org>
...
...
lisp/progmodes/compile.el
View file @
93260283
...
...
@@ -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]
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment