* subr.el (shell-quote-argument): Use alternate escaping strategy

[bpt/emacs.git] / lisp / subr.el

diff --git a/lisp/subr.el b/lisp/subr.el
index 2b6a540..e374b56 100644 (file)
--- 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