diff options
| author | Robert J. Chassell | 2002-05-30 13:47:32 +0000 |
|---|---|---|
| committer | Robert J. Chassell | 2002-05-30 13:47:32 +0000 |
| commit | b765ba644ce6bdc6676365ba8a141253d88288dc (patch) | |
| tree | 3a1dcccd0ef7e17c201f6952ec80a84b00f2a839 | |
| parent | a579b36f344af5b6626da7086e957e03d34ef121 (diff) | |
| download | emacs-b765ba644ce6bdc6676365ba8a141253d88288dc.tar.gz emacs-b765ba644ce6bdc6676365ba8a141253d88288dc.zip | |
Modified doc string to say that the kill-compilation function also
kills processes made by a grep command; created a defalias, kill-grep.
| -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. |