Mercurial > hg > xemacs-beta
changeset 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 | 47ca978d6c75 |
| children | 0288e82c84b3 |
| files | lisp/ChangeLog lisp/process.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Jul 14 14:23:48 2002 +0000 +++ b/lisp/ChangeLog Sun Jul 14 23:00:16 2002 +0000 @@ -1,3 +1,8 @@ +2002-07-14 Mike Alexander <mta@arbortext.com> + + * process.el (shell-command-on-region): Don't delete the region + before giving it to call-process-region + 2002-07-14 Adrian Aichner <adrian@xemacs.org> * ChangeLog: It's XEmacs, not Xemacs.
--- a/lisp/process.el Sun Jul 14 14:23:48 2002 +0000 +++ b/lisp/process.el Sun Jul 14 23:00:16 2002 +0000 @@ -436,7 +436,7 @@ ;; then replace that region with the output. (progn (setq buffer-read-only nil) (delete-region (max start end) (point-max)) - (delete-region (point-min) (max start end)) + (delete-region (point-min) (min start end)) (setq exit-status (call-process-region (point-min) (point-max) shell-file-name t t nil