dired-do-shell-command: Fix check for wildcards

* lisp/dired-aux.el (dired-do-shell-command): Replace just '?', '*'
and '`?' i.e., keep the whitespaces.
* test/lisp/dired-aux-tests.el (dired-test-bug27496): Add test.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 12a97f8457e..e4547758587 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -738,7 +738,7 @@ can be produced by `dired-get-marked-files', for example."
                ;; Drop all ? and * surrounded by spaces and `?`.
                (while (and (string-match regexp res)
                            (dired--star-or-qmark-p res str))
-                 (setq res (replace-match "" t t res 0)))
+                 (setq res (replace-match "" t t res 2)))
                (string-match regexp res))))
   (let* ((on-each (not (dired--star-or-qmark-p command "*" 'keep)))
          (no-subst (not (dired--star-or-qmark-p command "?" 'keep)))