mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(shell-quote-wildcard-pattern): Quote ' and " as well.

Browse Source
This commit is contained in:
Chong Yidong 2008-02-25 17:42:13 +00:00
parent 1a5f62980a
commit d6d6157455
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/files.el
View File

@ -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))
"\\"