[Emacs-diffs] /srv/bzr/emacs/trunk r104027: * subr.el (shell-quote-argument): Use alternate escaping strategy

[Daniel Colascione]

------------------------------------------------------------
revno: 104027
committer: Daniel Colascione <address@hidden>
branch nick: trunk
timestamp: Wed 2011-04-27 00:56:55 -0700
message:
  * subr.el (shell-quote-argument): Use alternate escaping strategy
  when we spot a variable reference in a string.
modified:
  lisp/ChangeLog
  lisp/subr.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-26 14:07:29 +0000
+++ b/lisp/ChangeLog    2011-04-27 07:56:55 +0000
@@ -1,3 +1,8 @@
+2011-04-27  Daniel Colascione  <address@hidden>
+
+       * subr.el (shell-quote-argument): Use alternate escaping strategy
+       when we spot a variable reference in a string.
+
 2011-04-26  Daniel Colascione  <address@hidden>
 
        * cus-start.el (all): Define customization for debug-on-event.

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2011-04-26 10:44:03 +0000
+++ b/lisp/subr.el      2011-04-27 07:56:55 +0000
@@ -2543,7 +2543,7 @@
             "\\1\\1\\\\\""
             argument)))
 
-    (if (string-match "\"" argument)
+    (if (string-match "[%!\"]" argument)
         (concat
          "^\""
          (replace-regexp-in-string