Mercurial > emacs
changeset 92397:9fc81417e8c4
(compilation-menu-map): Add menu entries
for useful options.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sun, 02 Mar 2008 01:10:30 +0000 |
| parents | f2e4e3550683 |
| children | c98e70371bdc |
| files | lisp/ChangeLog lisp/progmodes/compile.el |
| diffstat | 2 files changed, 37 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Mar 01 23:51:46 2008 +0000 +++ b/lisp/ChangeLog Sun Mar 02 01:10:30 2008 +0000 @@ -1,3 +1,8 @@ +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>
--- a/lisp/progmodes/compile.el Sat Mar 01 23:51:46 2008 +0000 +++ b/lisp/progmodes/compile.el Sun Mar 02 01:10:30 2008 +0000 @@ -1288,9 +1288,40 @@ (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]