1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/shell.el b/lisp/shell.el
index 2adfc79618a..d3e23251a1f 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -298,7 +298,9 @@ Value is a list of strings, which may be nil."
              (equal name "bash")
              (file-executable-p prog)
              (string-match "bad option"
-                           (shell-command-to-string (concat prog " --noediting"))))
+                           (shell-command-to-string
+                            (concat (shell-quote-argument prog)
+                                    " --noediting"))))
         '("-i")
       '("--noediting" "-i")))
   "Args passed to inferior shell by \\[shell], if the shell is bash.