aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRobert J. Chassell2002-05-30 13:47:32 +0000
committerRobert J. Chassell2002-05-30 13:47:32 +0000
commitb765ba644ce6bdc6676365ba8a141253d88288dc (patch)
tree3a1dcccd0ef7e17c201f6952ec80a84b00f2a839
parenta579b36f344af5b6626da7086e957e03d34ef121 (diff)
downloademacs-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.el4
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.