[Emacs-diffs] trunk r113057: Add explicit arg REPLACE to the callers of `shell-command-on-region'.

[Juri Linkov]

------------------------------------------------------------
revno: 113057
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/14637
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Tue 2013-06-18 23:24:44 +0300
message:
  Add explicit arg REPLACE to the callers of `shell-command-on-region'.
  
  * lisp/simple.el (shell-command-on-region): Doc fix.
  
  * lisp/emulation/vi.el (vi-shell-op):
  * lisp/emulation/vip.el (vip-execute-com, ex-command):
  * lisp/emulation/viper-cmd.el (viper-exec-bang):
  * lisp/emulation/viper-ex.el (ex-command): Add non-nil arg REPLACE to
  the call of `shell-command-on-region'. 
  
  * lisp/mh-e/mh-alias.el (mh-alias-local-users): Add non-nil arg REPLACE to
  the call of `shell-command-on-region'.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emulation/vi.el           vi.el-20091113204419-o5vbwnq5f7feedwu-14
  lisp/emulation/vip.el          vip.el-20091113204419-o5vbwnq5f7feedwu-20
  lisp/emulation/viper-cmd.el    
vipercmd.el-20091113204419-o5vbwnq5f7feedwu-1184
  lisp/emulation/viper-ex.el     viperex.el-20091113204419-o5vbwnq5f7feedwu-836
  lisp/mh-e/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-2547
  lisp/mh-e/mh-alias.el          mhalias.el-20091113204419-o5vbwnq5f7feedwu-2531
  lisp/simple.el                 simple.el-20091113204419-o5vbwnq5f7feedwu-403

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-18 20:06:18 +0000
+++ b/lisp/ChangeLog    2013-06-18 20:24:44 +0000
@@ -1,3 +1,13 @@
+2013-06-18  Juri Linkov  <address@hidden>
+
+       * emulation/vi.el (vi-shell-op):
+       * emulation/vip.el (vip-execute-com, ex-command):
+       * emulation/viper-cmd.el (viper-exec-bang):
+       * emulation/viper-ex.el (ex-command): Add non-nil arg REPLACE to
+       the call of `shell-command-on-region'.  (Bug#14637)
+
+       * simple.el (shell-command-on-region): Doc fix.
+
 2013-06-18  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/eieio-custom.el: Remove misleading Version: header

=== modified file 'lisp/emulation/vi.el'
--- a/lisp/emulation/vi.el      2012-09-17 05:41:04 +0000
+++ b/lisp/emulation/vi.el      2013-06-18 20:24:44 +0000
@@ -1148,7 +1148,8 @@
       (cond ((null shell-command)
             (setq shell-command (read-string "!" nil))
             (setq vi-last-shell-command shell-command)))
-      (shell-command-on-region begin end shell-command (not 
(vi-prefix-char-value arg)))
+      (shell-command-on-region begin end shell-command (not 
(vi-prefix-char-value arg))
+                                                      (not 
(vi-prefix-char-value arg)))
       t)))
 
 (defun vi-shift-op (motion-command arg amount)

=== modified file 'lisp/emulation/vip.el'
--- a/lisp/emulation/vip.el     2013-03-12 02:08:21 +0000
+++ b/lisp/emulation/vip.el     2013-06-18 20:24:44 +0000
@@ -775,7 +775,7 @@
                  (if (= com ?!)
                      (setq vip-last-shell-com (vip-read-string "!"))
                    vip-last-shell-com)
-                 t)))
+                 t t)))
              ((= com ?=)
               (save-excursion
                 (set-mark vip-com-point)
@@ -3042,7 +3042,7 @@
          (goto-char beg)
          (set-mark end)
          (vip-enlarge-region (point) (mark))
-         (shell-command-on-region (point) (mark) command t))
+         (shell-command-on-region (point) (mark) command t t))
        (goto-char beg)))))
 
 (defun ex-line-no ()

=== modified file 'lisp/emulation/viper-cmd.el'
--- a/lisp/emulation/viper-cmd.el       2013-05-22 03:21:30 +0000
+++ b/lisp/emulation/viper-cmd.el       2013-06-18 20:24:44 +0000
@@ -1548,7 +1548,7 @@
                (car viper-shell-history)
                ))
        viper-last-shell-com)
-     t)))
+     t t)))
 
 (defun viper-exec-equals (m-com com)
   (save-excursion

=== modified file 'lisp/emulation/viper-ex.el'
--- a/lisp/emulation/viper-ex.el        2013-05-22 03:21:30 +0000
+++ b/lisp/emulation/viper-ex.el        2013-06-18 20:24:44 +0000
@@ -2176,7 +2176,7 @@
          (goto-char beg)
          (set-mark end)
          (viper-enlarge-region (point) (mark t))
-         (shell-command-on-region (point) (mark t) command t))
+         (shell-command-on-region (point) (mark t) command t t))
        (goto-char beg)))))
 
 (defun ex-compile ()

=== modified file 'lisp/mh-e/ChangeLog'
--- a/lisp/mh-e/ChangeLog       2013-05-22 03:13:56 +0000
+++ b/lisp/mh-e/ChangeLog       2013-06-18 20:24:44 +0000
@@ -1,3 +1,8 @@
+2013-06-18  Juri Linkov  <address@hidden>
+
+       * mh-alias.el (mh-alias-local-users): Add non-nil arg REPLACE to
+       the call of `shell-command-on-region'.  (Bug#14637)
+
 2013-05-22  Glenn Morris  <address@hidden>
 
        * mh-speed.el (mh-speed-view):

=== modified file 'lisp/mh-e/mh-alias.el'
--- a/lisp/mh-e/mh-alias.el     2013-01-01 09:11:05 +0000
+++ b/lisp/mh-e/mh-alias.el     2013-06-18 20:24:44 +0000
@@ -141,7 +141,7 @@
             (insert-file-contents "/etc/passwd")))
        ((stringp mh-alias-local-users)
         (insert mh-alias-local-users "\n")
-        (shell-command-on-region (point-min) (point-max) mh-alias-local-users 
t)
+        (shell-command-on-region (point-min) (point-max) mh-alias-local-users 
t t)
         (goto-char (point-min))))
       (while  (< (point) (point-max))
         (cond

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2013-06-15 09:34:20 +0000
+++ b/lisp/simple.el    2013-06-18 20:24:44 +0000
@@ -2849,10 +2849,11 @@
 Command Output*' is deleted.
 
 Optional fourth arg OUTPUT-BUFFER specifies where to put the
-command's output.  If the value is a buffer or buffer name, put
-the output there.  Any other value, excluding nil, means to
-insert the output in the current buffer.  In either case, the
-output is inserted after point (leaving mark after it).
+command's output.  If the value is a buffer or buffer name,
+put the output there.  If the value is nil, use the buffer
+`*Shell Command Output*'.  Any other value, excluding nil,
+means to insert the output in the current buffer.  In either case,
+the output is inserted after point (leaving mark after it).
 
 Optional fifth arg REPLACE, if non-nil, means to insert the
 output in place of text from START to END, putting point and mark