Mercurial > emacs
comparison lisp/progmodes/compile.el @ 1554:5af75a1a9a24
* compile.el (compile-internal): Use NAME-OF-MODE in the prompt
when offering to kill an existing process.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Sat, 07 Nov 1992 06:12:11 +0000 |
parents | 81c5d1c4a7ed |
children | 817bd71e0e72 |
comparison
equal
deleted
inserted
replaced
1553:6b409871cc4a | 1554:5af75a1a9a24 |
---|---|
241 (set-buffer outbuf) | 241 (set-buffer outbuf) |
242 (let ((comp-proc (get-buffer-process (current-buffer)))) | 242 (let ((comp-proc (get-buffer-process (current-buffer)))) |
243 (if comp-proc | 243 (if comp-proc |
244 (if (or (not (eq (process-status comp-proc) 'run)) | 244 (if (or (not (eq (process-status comp-proc) 'run)) |
245 (yes-or-no-p | 245 (yes-or-no-p |
246 "A compilation process is running; kill it? ")) | 246 (format "A %s process is running; kill it? " |
247 name-of-mode))) | |
247 (condition-case () | 248 (condition-case () |
248 (progn | 249 (progn |
249 (interrupt-process comp-proc) | 250 (interrupt-process comp-proc) |
250 (sit-for 1) | 251 (sit-for 1) |
251 (delete-process comp-proc)) | 252 (delete-process comp-proc)) |