mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(shell-quote-argument): Don't do anything, on MS-DOS.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-07-01 21:48:13 +00:00
parent b95c8e7e3e
commit c1c74b4320
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/subr.el
View File

@ -864,17 +864,20 @@ STRING should be given if the last search was by `string-match' on STRING."
(defun shell-quote-argument (argument)
"Quote an argument for passing as argument to an inferior shell."
;; Quote everything except POSIX filename characters.
;; This should be safe enough even for really weird shells.
(if (eq system-type 'windows-nt)
(concat "\"" argument "\"")
(let ((result "") (start 0) end)
(while (string-match "[^-0-9a-zA-Z_./]" 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 'ms-dos)
;; MS-DOS shells don't have quoting, so don't do any.
argument
(if (eq system-type 'windows-nt)
(concat "\"" argument "\"")
;; Quote everything except POSIX filename characters.
;; This should be safe enough even for really weird shells.
(let ((result "") (start 0) end)
(while (string-match "[^-0-9a-zA-Z_./]" 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))))))
(defun make-syntax-table (&optional oldtable)
"Return a new syntax table.