[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/shell-command+ fe9b3e8 2/2: Respect shell-command+-prom

From: ELPA Syncer
Subject: [elpa] externals/shell-command+ fe9b3e8 2/2: Respect shell-command+-prompt
Date: Sun, 4 Jul 2021 08:57:21 -0400 (EDT)

branch: externals/shell-command+
commit fe9b3e864f51f2a8e58a0132cdaca93da07e1abf
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Respect shell-command+-prompt
 shell-command+.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/shell-command+.el b/shell-command+.el
index c0a4ac2..eebb602 100644
--- a/shell-command+.el
+++ b/shell-command+.el
@@ -303,7 +303,11 @@ These extentions can all be combined with one-another.
 In case a region is active, `shell-command+' will only work with the region
 between BEG and END.  Otherwise the whole buffer is processed."
-  (interactive (list (read-shell-command shell-command+-prompt)
+  (interactive (list (read-shell-command
+                      (if shell-command-prompt-show-cwd
+                          (format shell-command+-prompt
+                                  (abbreviate-file-name default-directory))
+                        shell-command+-prompt))
                      (if (use-region-p) (region-beginning) (point-min))
                      (if (use-region-p) (region-end) (point-max))))
   (pcase-let* ((`(,path ,mode ,command ,rest) (shell-command+-parse command))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]