# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 830834504 0
# Node ID dd31d59ec31bb2d467ef3fc8e4fe9a5479350d0f
# Parent  2151ff2428aa96b97142a726bf7f903dd24a80dd
(shell-command-on-region): Start of region to keep is
min of endpoints, not max.

diff -r 2151ff2428aa -r dd31d59ec31b lisp/simple.el
--- a/lisp/simple.el	Mon Apr 29 18:49:47 1996 +0000
+++ b/lisp/simple.el	Tue Apr 30 03:21:44 1996 +0000
@@ -894,7 +894,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))
 		     (call-process-region (point-min) (point-max)
 					  shell-file-name t t nil
 					  shell-command-switch command)