Mercurial > hg > xemacs-beta

diff lisp/process.el @ 921:5fc81edb7a38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
line wrap: on
line diff
--- 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