# HG changeset patch
# User mta
# Date 1026687616 0
# Node ID 5fc81edb7a38a3481e4e75bdfa5d29ecc3cd5644
# Parent  47ca978d6c75aa0f95bcabdc5d641b8c431b7c73
[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

diff -r 47ca978d6c75 -r 5fc81edb7a38 lisp/ChangeLog
--- 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.
diff -r 47ca978d6c75 -r 5fc81edb7a38 lisp/process.el
--- 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