From 2a782793a8596e6724207474bd7545684c83591d Mon Sep 17 00:00:00 2001 From: Daniel Colascione Date: Wed, 27 Apr 2011 00:56:55 -0700 Subject: [PATCH] * subr.el (shell-quote-argument): Use alternate escaping strategy when we spot a variable reference in a string. --- lisp/ChangeLog | 5 +++++ lisp/subr.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * subr.el (shell-quote-argument): Use alternate escaping strategy + when we spot a variable reference in a string. + 2011-04-26 Daniel Colascione * 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 -- 2.11.4.GIT