From b3531901c6c3cf932633b52ec96aff50470c997f Mon Sep 17 00:00:00 2001
From: Sam Steingold <sds@gnu.org>
Date: Thu, 23 May 2013 17:01:47 -0400
Subject: [PATCH] * simple.el (shell-command-on-region): Pass the `replace'
 argument down to `call-process-region' to comply with he doc as reported on
 <http://stackoverflow.com/questions/16720458/emacs-noninteractive-call-to-shell-command-on-region-always-deletes-region>

---
 lisp/ChangeLog | 6 ++++++
 lisp/simple.el | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d4f2a185cf6..b37e0aad393 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-05-23  Sam Steingold  <sds@gnu.org>
+
+	* simple.el (shell-command-on-region): Pass the `replace' argument
+	down to `call-process-region' to comply witht he doc as reported on
+	<http://stackoverflow.com/questions/16720458/emacs-noninteractive-call-to-shell-command-on-region-always-deletes-region>
+
 2013-05-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emacs-lisp/smie.el (smie-indent-forward-token)
diff --git a/lisp/simple.el b/lisp/simple.el
index f81b02b0acf..82c7100f589 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2923,7 +2923,7 @@ interactively, this is t."
 	  (goto-char start)
 	  (and replace (push-mark (point) 'nomsg))
 	  (setq exit-status
-		(call-process-region start end shell-file-name t
+		(call-process-region start end shell-file-name replace
 				     (if error-file
 					 (list t error-file)
 				       t)
-- 
2.39.2