1385 |
(interactive "p") |
(interactive "p") |
1386 |
(compilation-next-file (- n))) |
(compilation-next-file (- n))) |
1387 |
|
|
|
|
|
1388 |
(defun kill-compilation () |
(defun kill-compilation () |
1389 |
"Kill the process made by the \\[compile] command." |
"Kill the process made by the \\[compile] or \\[grep] commands." |
1390 |
(interactive) |
(interactive) |
1391 |
(let ((buffer (compilation-find-buffer))) |
(let ((buffer (compilation-find-buffer))) |
1392 |
(if (get-buffer-process buffer) |
(if (get-buffer-process buffer) |
1393 |
(interrupt-process (get-buffer-process buffer)) |
(interrupt-process (get-buffer-process buffer)) |
1394 |
(error "The compilation process is not running")))) |
(error "The compilation process is not running")))) |
1395 |
|
|
1396 |
|
(defalias 'kill-grep 'kill-compilation) |
1397 |
|
|
1398 |
;; Parse any new errors in the compilation buffer, |
;; Parse any new errors in the compilation buffer, |
1399 |
;; or reparse from the beginning if the user has asked for that. |
;; or reparse from the beginning if the user has asked for that. |