[elpa] externals/shell-command+ c91cb867f7 1/5: Fix input redirection

[ELPA Syncer]

branch: externals/shell-command+
commit c91cb867f78ba4e0ef6fc3a3907c1b9b7da86976
Author: Visuwesh <visuweshm@gmail.com>
Commit: Philip Kaludercic <philipk@posteo.net>

    Fix input redirection
    
    * shell-command+.el (shell-command+-redirect-output): Tranpose the
    sexps so that FORM gets returned correctly.
---
 shell-command+.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/shell-command+.el b/shell-command+.el
index e2cc209c40..f61c395fd2 100644
--- a/shell-command+.el
+++ b/shell-command+.el
@@ -151,10 +151,10 @@ For PARSE, FORM and CONTEXT see 
`shell-command+-features'."
     (list parse
           (cond ((if shell-command+-flip-redirection
                      (eq mode 'output) (eq mode 'input))
+                 (exchange-point-and-mark)
                  `(progn
                     (delete-region ,beg ,end)
-                    (shell-command ,shell-command+--command-hole t 
shell-command-default-error-buffer))
-                 (exchange-point-and-mark))
+                    (shell-command ,shell-command+--command-hole t 
shell-command-default-error-buffer)))
                 ((if shell-command+-flip-redirection
                      (eq mode 'input) (eq mode 'output))
                  `(shell-command-on-region