changeset 15115:dd31d59ec31b

(shell-command-on-region): Start of region to keep is min of endpoints, not max.
author Karl Heuer <kwzh@gnu.org>
date Tue, 30 Apr 1996 03:21:44 +0000
parents 2151ff2428aa
children a152ab5c09b0
files lisp/simple.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)