From: Karl Heuer Date: Tue, 30 Apr 1996 03:21:44 +0000 (+0000) Subject: (shell-command-on-region): Start of region to keep is X-Git-Tag: emacs-19.34~746 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa247686c2aaa9f4848f7c10972ebc6047dc846d;p=emacs.git (shell-command-on-region): Start of region to keep is min of endpoints, not max. --- diff --git a/lisp/simple.el b/lisp/simple.el index 5617efa773d..829f39083d6 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -894,7 +894,7 @@ In either case, the output is inserted after point (leaving mark after it)." ;; 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)