# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1203961242 0
# Node ID dc5774be241d471d8e4ce0b925fe43a537248e8f
# Parent  32cc1429bc4cdd063e81e10c9124cce6b0bb7247
(shell-quote-wildcard-pattern): Quote ' and " as well.

diff -r 32cc1429bc4c -r dc5774be241d lisp/files.el
--- a/lisp/files.el	Mon Feb 25 17:40:31 2008 +0000
+++ b/lisp/files.el	Mon Feb 25 17:40:42 2008 +0000
@@ -4774,7 +4774,7 @@
 
 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 @@
 	  (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))
 			"\\"