diff options
| author | Daniel Colascione <dan.colascione@gmail.com> | 2011-04-27 00:56:55 -0700 |
|---|---|---|
| committer | Daniel Colascione <dan.colascione@gmail.com> | 2011-04-27 00:56:55 -0700 |
| commit | 2a782793a8596e6724207474bd7545684c83591d (patch) | |
| tree | 614ff778f849e4fd273c6df16cd26c6446320864 | |
| parent | f61f41d74747ed3189526ca70b128acf3719c6fa (diff) | |
| download | emacs-2a782793a8596e6724207474bd7545684c83591d.tar.gz | |
* subr.el (shell-quote-argument): Use alternate escaping strategy
when we spot a variable reference in a string.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/subr.el | 2 |
2 files changed, 6 insertions, 1 deletions
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 |