From 0950aa27a260158ab01e434281d7ea0ee9f8d023 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 18 Jun 2013 23:24:44 +0300 Subject: 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'. Fixes: debbugs:14637 --- lisp/emulation/vip.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emulation/vip.el') diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index ce131b854f..b32e6e7e35 100644 --- a/lisp/emulation/vip.el +++ b/lisp/emulation/vip.el @@ -775,7 +775,7 @@ to vip-d-com for later use by vip-repeat" (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 @@ vip-s-string" (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 () -- cgit v1.2.3