Mercurial > emacs
comparison lisp/progmodes/compile.el @ 45582:08fe4d419957
Modified doc string to say that the kill-compilation function also
kills processes made by a grep command; created a defalias, kill-grep.
author | Robert J. Chassell <bob@rattlesnake.com> |
---|---|
date | Thu, 30 May 2002 13:47:32 +0000 |
parents | 7c87a236ef78 |
children | 996be238a122 |
comparison
equal
deleted
inserted
replaced
45581:d997ffad4f09 | 45582:08fe4d419957 |
---|---|
1383 (defun compilation-previous-file (n) | 1383 (defun compilation-previous-file (n) |
1384 "Move point to the previous error for a different file than the current one." | 1384 "Move point to the previous error for a different file than the current one." |
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. |
1400 (defun compile-reinitialize-errors (reparse | 1400 (defun compile-reinitialize-errors (reparse |
1401 &optional limit-search find-at-least) | 1401 &optional limit-search find-at-least) |