* 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>

2 files changed, 7 insertions, 1 deletions

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)