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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d4f2a185cf619be485644b1d9a964515df842e59..b37e0aad39363c132a03047ce21ca376ba871347 100644 (file)
--- 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 f81b02b0acf16b1560f809528881d263b28177bf..82c7100f589535538127574ba0d0255bdd7f4921 100644 (file)
--- 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)