branch: externals/shell-command+
commit 3fcab363380c39a60601077660c6a1252be3a748
Author: Philip K <phi...@warpmail.net>
Commit: Philip K <phi...@warpmail.net>

    only execute real command, not bang modifiers
---
 bang.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bang.el b/bang.el
index 9160823..ff82c1c 100644
--- a/bang.el
+++ b/bang.el
@@ -101,7 +101,7 @@ 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 (if current-prefix-arg t nil)
+              (t (shell-command rest (if current-prefix-arg t nil)
                                 shell-command-default-error-buffer))))
       (when has->
         (with-current-buffer "*Shell Command Output*"

Reply via email to