From df28b5c176146057758c5a7145d7d4b862c42c93 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 25 Feb 2008 17:40:42 +0000 Subject: [PATCH] (shell-quote-wildcard-pattern): Quote ' and " as well. --- lisp/files.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index cd375dfd00d..be98b3c8562 100644 --- 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)) "\\" -- 2.11.4.GIT