* simple.el (shell-command-on-region): Pass the `replace' argument

[bpt/emacs.git] / lisp / simple.el

diff --git a/lisp/simple.el b/lisp/simple.el
index f81b02b..82c7100 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)