Mercurial > hg > xemacs-beta
comparison lisp/process.el @ 921:5fc81edb7a38
[xemacs-hg @ 2002-07-14 23:00:15 by mta]
process.el (shell-command-on-region): Don't delete the region before giving it to call-process-region
| author | mta |
|---|---|
| date | Sun, 14 Jul 2002 23:00:16 +0000 |
| parents | 278c743f1578 |
| children | eaedf30d9d76 |
comparison
equal
deleted
inserted
replaced
| 920:47ca978d6c75 | 921:5fc81edb7a38 |
|---|---|
| 434 ;; If the input is the same buffer as the output, | 434 ;; If the input is the same buffer as the output, |
| 435 ;; delete everything but the specified region, | 435 ;; delete everything but the specified region, |
| 436 ;; then replace that region with the output. | 436 ;; then replace that region with the output. |
| 437 (progn (setq buffer-read-only nil) | 437 (progn (setq buffer-read-only nil) |
| 438 (delete-region (max start end) (point-max)) | 438 (delete-region (max start end) (point-max)) |
| 439 (delete-region (point-min) (max start end)) | 439 (delete-region (point-min) (min start end)) |
| 440 (setq exit-status | 440 (setq exit-status |
| 441 (call-process-region (point-min) (point-max) | 441 (call-process-region (point-min) (point-max) |
| 442 shell-file-name t t nil | 442 shell-file-name t t nil |
| 443 shell-command-switch command)) | 443 shell-command-switch command)) |
| 444 (setq success t)) | 444 (setq success t)) |