diff options
author | Juri Linkov <juri@jurta.org> | 2013-06-18 23:24:44 +0300 |
---|---|---|
committer | Juri Linkov <juri@jurta.org> | 2013-06-18 23:24:44 +0300 |
commit | 0950aa27a260158ab01e434281d7ea0ee9f8d023 (patch) | |
tree | 27e05c137176fc829cb73318fc7c18aa63f2a39f /lisp/emulation/vip.el | |
parent | 8fbcca1658ad9604616f8fa9d2223d9993007e47 (diff) |
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
Diffstat (limited to 'lisp/emulation/vip.el')
-rw-r--r-- | lisp/emulation/vip.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 () |