Mercurial > emacs
changeset 80210:dc5774be241d
(shell-quote-wildcard-pattern): Quote ' and " as well.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 25 Feb 2008 17:40:42 +0000 |
| parents | 32cc1429bc4c |
| children | 334c632bea81 |
| files | lisp/files.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)) "\\"