[elpa] externals/shell-command+ 55f3e2a 16/36: emulated insert-into-buffer feature from shell-command

[Stefan Monnier]

branch: externals/shell-command+
commit 55f3e2a7fc240bf7754dc3de47514095c76f89be
Author: Philip K <philip@warpmail.net>
Commit: Philip K <philip@warpmail.net>

    emulated insert-into-buffer feature from shell-command
---
 bang.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/bang.el b/bang.el
index 40bcd38..2be0b25 100644
--- a/bang.el
+++ b/bang.el
@@ -76,7 +76,8 @@ between BEG and END. Otherwise the whole buffer is processed."
             (has-| (shell-command-on-region
                     beg end rest t t
                     shell-command-default-error-buffer t))
-            (t (shell-command command nil shell-command-default-error-buffer)))
+            (t (shell-command command (if current-prefix-arg t nil)
+                              shell-command-default-error-buffer)))
       (when has->
         (with-current-buffer "*Shell Command Output*"
           (delete-region (point-min) (point-max)))))))