From: Kim F. Storm <storm@cua.dk>
Date: Sun, 15 Oct 2006 20:42:10 +0000 (+0000)
Subject: 2006-10-15  Lennart Borgman  <lennart.borgman.073@student.lu.se>
X-Git-Tag: emacs-pretest-22.0.90~119
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88b7c0e4d3904a5180d367495888f84574a4758c;p=emacs.git

2006-10-15  Lennart Borgman  <lennart.borgman.073@student.lu.se>
(explicit-bash-args): Use shell-quote-argument.
---

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.