[Emacs-diffs] /srv/bzr/emacs/trunk r112695: * simple.el (shell-command-on-region): Pass the `replace' argument

[Sam Steingold]

------------------------------------------------------------
revno: 112695
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Thu 2013-05-23 17:01:47 -0400
message:
  * 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>
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-23 17:44:38 +0000
+++ b/lisp/ChangeLog    2013-05-23 21:01:47 +0000
@@ -1,3 +1,9 @@
+2013-05-23  Sam Steingold  <address@hidden>
+
+       * 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  <address@hidden>
 
        * emacs-lisp/smie.el (smie-indent-forward-token)

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2013-05-16 03:41:52 +0000
+++ b/lisp/simple.el    2013-05-23 21:01:47 +0000
@@ -2923,7 +2923,7 @@
          (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)