* lisp/files.el (insert-directory): Quote switches in wildcard case.
Use shell-quote-wildcard-pattern on the switches string split by split-string-and-unquote. This helps to quote such switches as "--block-size='1" (bug#71935).
This commit is contained in:
parent
8911d53ce5
commit
b249f022f1
1 changed files with 9 additions and 3 deletions
|
@ -8193,9 +8193,15 @@ normally equivalent short `-D' option is just passed on to
|
||||||
"\\") ; Disregard Unix shell aliases!
|
"\\") ; Disregard Unix shell aliases!
|
||||||
insert-directory-program
|
insert-directory-program
|
||||||
" -d "
|
" -d "
|
||||||
(if (stringp switches)
|
;; Quote switches that require quoting
|
||||||
switches
|
;; such as "--block-size='1". But don't
|
||||||
(mapconcat #'identity switches " "))
|
;; quote switches that use patterns
|
||||||
|
;; such as "--ignore=PATTERN" (bug#71935).
|
||||||
|
(mapconcat #'shell-quote-wildcard-pattern
|
||||||
|
(if (stringp switches)
|
||||||
|
(split-string-and-unquote switches)
|
||||||
|
switches)
|
||||||
|
" ")
|
||||||
" -- "
|
" -- "
|
||||||
;; Quote some characters that have
|
;; Quote some characters that have
|
||||||
;; special meanings in shells; but
|
;; special meanings in shells; but
|
||||||
|
|
Loading…
Add table
Reference in a new issue