branch: externals/embark
commit 0dfa489d1220a592bff006feff075478da8529ee
Author: Omar Antolín <omar.anto...@gmail.com>
Commit: Omar Antolín <omar.anto...@gmail.com>
Allow shell-command-on-region to actually prompt for a command!
---
embark.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/embark.el b/embark.el
index 753323f..b3acb94 100644
--- a/embark.el
+++ b/embark.el
@@ -372,6 +372,7 @@ with `find-file'."
delete-directory
kill-buffer
shell-command
+ shell-command-on-region
async-shell-command
embark-kill-buffer-and-window
pp-eval-expression)
@@ -416,9 +417,10 @@ the key :always are executed always."
"0.12"))
(defcustom embark-pre-action-hooks
- '(;; region commands which prompt for a filename
+ '(;; region commands which prompt for a filename or command
(write-region embark--ignore-target embark--mark-target)
(append-to-file embark--ignore-target embark--mark-target)
+ (shell-command-on-region embark--ignore-target embark--mark-target)
;; commands which evaluate code not given at a prompt
(embark-pp-eval-defun embark--ignore-target)
(eval-defun embark--ignore-target)
