Modified doc string to say that the kill-compilation function also

kills processes made by a grep command; created a defalias, kill-grep.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 689c095f521175d67cb49f4b82e257e38a75ef0a..02fa3abb90c7820bef3fe321d75b45054d7c5c8d 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1385,15 +1385,15 @@ Does NOT find the source line like \\[next-error]."
   (interactive "p")
   (compilation-next-file (- n)))
 
-
 (defun kill-compilation ()
-  "Kill the process made by the \\[compile] command."
+  "Kill the process made by the \\[compile] or \\[grep] commands."
   (interactive)
   (let ((buffer (compilation-find-buffer)))
     (if (get-buffer-process buffer)
        (interrupt-process (get-buffer-process buffer))
       (error "The compilation process is not running"))))
 
+(defalias 'kill-grep 'kill-compilation)
 
 ;; Parse any new errors in the compilation buffer,
 ;; or reparse from the beginning if the user has asked for that.