diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2008-02-25 17:40:42 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2008-02-25 17:40:42 +0000 |
| commit | df28b5c176146057758c5a7145d7d4b862c42c93 (patch) | |
| tree | 4e8e3350fbcdcb2fb23475274b67a659cc0ac585 | |
| parent | 86ccfcb6a770663b288c9533c0b5f15c13ada3eb (diff) | |
| download | emacs-df28b5c176146057758c5a7145d7d4b862c42c93.tar.gz | |
(shell-quote-wildcard-pattern): Quote ' and " as well.
| -rw-r--r-- | lisp/files.el | 4 |
1 files 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)) "\\" |