mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

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

Browse Source 
kills processes made by a grep command; created a defalias, kill-grep.
This commit is contained in:
Robert J. Chassell 2002-05-30 13:47:32 +00:00
parent a579b36f34
commit b765ba644c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/progmodes/compile.el
View File

@ -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.