branch: externals/shell-command+
commit c91cb867f78ba4e0ef6fc3a3907c1b9b7da86976
Author: Visuwesh <visuwe...@gmail.com>
Commit: Philip Kaludercic <phil...@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
