From: Daniel Colascione <dan.colascione@gmail.com>
Date: Wed, 27 Apr 2011 07:56:55 +0000 (-0700)
Subject: * subr.el (shell-quote-argument): Use alternate escaping strategy
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~199
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a782793a8596e6724207474bd7545684c83591d;p=emacs.git

* subr.el (shell-quote-argument): Use alternate escaping strategy
when we spot a variable reference in a string.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3aae7e5b678..e6517f77b32 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-27  Daniel Colascione  <dan.colascione@gmail.com>
+
+	* subr.el (shell-quote-argument): Use alternate escaping strategy
+	when we spot a variable reference in a string.
+
 2011-04-26  Daniel Colascione  <dan.colascione@gmail.com>
 
 	* cus-start.el (all): Define customization for debug-on-event.
diff --git a/lisp/subr.el b/lisp/subr.el
index 2b6a5404060..e374b56d2a8 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2543,7 +2543,7 @@ Note: :data and :device are currently not supported on Windows."
             "\\1\\1\\\\\""
             argument)))
 
-    (if (string-match "\"" argument)
+    (if (string-match "[%!\"]" argument)
         (concat
          "^\""
          (replace-regexp-in-string