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)