diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2008-02-25 17:42:13 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2008-02-25 17:42:13 +0000 |
| commit | d6d61574551949db41692244863d457482d3dc61 (patch) | |
| tree | f3f6d06ac2f62830f5d282167d7032e6c0f772fa /lisp/files.el | |
| parent | 1a5f62980a76693c492e017af43cd08b5ad721f5 (diff) | |
| download | emacs-d6d61574551949db41692244863d457482d3dc61.tar.gz | |
(shell-quote-wildcard-pattern): Quote ' and " as well.
Diffstat (limited to 'lisp/files.el')
| -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 908bc95356b..d1b8cd2f30e 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -4869,7 +4869,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 @@ -4901,7 +4901,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)) "\\" |