mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(shell-quote-argument): Quote argument with double

Browse source 
quotes for ms-dos.
This commit is contained in:
Eli Zaretskii 1999-09-14 10:11:19 +00:00
parent 5684cd6e1b
commit 8ee75d0316
1 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/subr.el
View file

@ -1148,8 +1148,19 @@ Unless optional argument INPLACE is non-nil, return a new string."
(defun shell-quote-argument (argument)
"Quote an argument for passing as argument to an inferior shell."
(if (eq system-type 'ms-dos)
;; MS-DOS shells don't have quoting, so don't do any.
argument
;; Quote using double quotes, but escape any existing quotes in
;; the argument with backslashes.
(let ((result "")
(start 0)
end)
(if (or (null (string-match "[^\"]" argument))
(< (match-end 0) (length argument)))
(while (string-match "[\"]" argument start)
(setq end (match-beginning 0)
result (concat result (substring argument start end)
"\\" (substring argument end (1+ end)))
start (1+ end))))
(concat "\"" result (substring argument start) "\""))
(if (eq system-type 'windows-nt)
(concat "\"" argument "\"")
(if (equal argument "")