branch: externals/shell-command+
commit 55f3e2a7fc240bf7754dc3de47514095c76f89be
Author: Philip K <phi...@warpmail.net>
Commit: Philip K <phi...@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)))))))
