Mercurial > emacs
comparison lisp/files.el @ 739:0bb85f26b79c
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 04 Jul 1992 16:51:02 +0000 |
| parents | 18b892513cb7 |
| children | e43123226372 |
comparison
equal
deleted
inserted
replaced
| 738:81cd2a003397 | 739:0bb85f26b79c |
|---|---|
| 1363 (or (not (fboundp 'process-list)) | 1363 (or (not (fboundp 'process-list)) |
| 1364 ;; process-list is not defined on VMS. | 1364 ;; process-list is not defined on VMS. |
| 1365 (let ((processes (process-list)) | 1365 (let ((processes (process-list)) |
| 1366 active) | 1366 active) |
| 1367 (while processes | 1367 (while processes |
| 1368 (and (memq (process-status (car processes)) '(run stop)) | 1368 (and (memq (process-status (car processes)) '(run stop open)) |
| 1369 (let ((val (process-kill-without-query (car processes)))) | 1369 (let ((val (process-kill-without-query (car processes)))) |
| 1370 (process-kill-without-query (car processes) val) | 1370 (process-kill-without-query (car processes) val) |
| 1371 val) | 1371 val) |
| 1372 (setq active t)) | 1372 (setq active t)) |
| 1373 (setq processes (cdr processes))) | 1373 (setq processes (cdr processes))) |