(shell-quote-wildcard-pattern): Quote ' and " as well.

diff --git a/lisp/files.el b/lisp/files.el
index cd375dfd00d5b06d22c40a5d027c88cd92d88354..be98b3c8562da8bfa62e4617544f608506054ce6 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4774,7 +4774,7 @@ and `list-directory-verbose-switches'."
 
 PATTERN is assumed to represent a file-name wildcard suitable for the
 underlying filesystem.  For Unix and GNU/Linux, the characters from the
-set [ \\t\\n;<>&|()#$] are quoted with a backslash; for DOS/Windows, all
+set [ \\t\\n;<>&|()'\"#$] are quoted with a backslash; for DOS/Windows, all
 the parts of the pattern which don't include wildcard characters are
 quoted with double quotes.
 Existing quote characters in PATTERN are left alone, so you can pass
@@ -4806,7 +4806,7 @@ PATTERN that already quotes some of the special characters."
          (concat result (substring pattern beg) "\""))))
      (t
       (let ((beg 0))
-       (while (string-match "[ \t\n;<>&|()#$]" pattern beg)
+       (while (string-match "[ \t\n;<>&|()'\"#$]" pattern beg)
          (setq pattern
                (concat (substring pattern 0 (match-beginning 0))
                        "\\"