diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-09-11 00:28:04 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-09-11 00:28:04 -0400 |
| commit | 90ca7751ed5ea723a465b73665894e0863988fce (patch) | |
| tree | 22ca6a86aca3be73fb9713a061a8bee55a91bfe8 | |
| parent | 75cdf9ca439508c0728fa2e43698db7395d0d1f7 (diff) | |
| download | emacs.d-90ca7751ed5ea723a465b73665894e0863988fce.tar.gz | |
Add recompile-current-compilation
| -rw-r--r-- | lisp/init-external.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/init-external.el b/lisp/init-external.el index dbf1862..cea0d1f 100644 --- a/lisp/init-external.el +++ b/lisp/init-external.el @@ -68,11 +68,19 @@ monitor setup)." (display-buffer comp-buffer) (user-error "No compilation buffer"))) +(defun km/recompile-current-compilation () + (interactive) + (-if-let (comp-buffer (get-buffer "*compilation*")) + (with-current-buffer comp-buffer + (recompile)) + (user-error "No compilation buffer"))) + (define-prefix-command 'km/compile-map) (global-set-key (kbd "C-c c") 'km/compile-map) (define-key km/compile-map "c" 'compile) (define-key km/compile-map "g" 'recompile) +(define-key km/compile-map "r" 'km/recompile-current-compilation) (define-key km/compile-map "o" 'km/display-compilation-other-window) ;;; Diff |