From: Robert J. Chassell <bob@rattlesnake.com>
Date: Thu, 30 May 2002 13:47:32 +0000 (+0000)
Subject: Modified doc string to say that the kill-compilation function also
X-Git-Tag: ttn-vms-21-2-B4~14817
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b765ba644ce6bdc6676365ba8a141253d88288dc;p=emacs.git

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 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]."
   (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.