diff options
| -rw-r--r-- | lisp/progmodes/compile.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 689c095f521..02fa3abb90c 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -1385,15 +1385,15 @@ Does NOT find the source line like \\[next-error]." | |||
| 1385 | (interactive "p") | 1385 | (interactive "p") |
| 1386 | (compilation-next-file (- n))) | 1386 | (compilation-next-file (- n))) |
| 1387 | 1387 | ||
| 1388 | |||
| 1389 | (defun kill-compilation () | 1388 | (defun kill-compilation () |
| 1390 | "Kill the process made by the \\[compile] command." | 1389 | "Kill the process made by the \\[compile] or \\[grep] commands." |
| 1391 | (interactive) | 1390 | (interactive) |
| 1392 | (let ((buffer (compilation-find-buffer))) | 1391 | (let ((buffer (compilation-find-buffer))) |
| 1393 | (if (get-buffer-process buffer) | 1392 | (if (get-buffer-process buffer) |
| 1394 | (interrupt-process (get-buffer-process buffer)) | 1393 | (interrupt-process (get-buffer-process buffer)) |
| 1395 | (error "The compilation process is not running")))) | 1394 | (error "The compilation process is not running")))) |
| 1396 | 1395 | ||
| 1396 | (defalias 'kill-grep 'kill-compilation) | ||
| 1397 | 1397 | ||
| 1398 | ;; Parse any new errors in the compilation buffer, | 1398 | ;; Parse any new errors in the compilation buffer, |
| 1399 | ;; or reparse from the beginning if the user has asked for that. | 1399 | ;; or reparse from the beginning if the user has asked for that. |