aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/comint.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el
index a8019f8ee31..5292c09bf66 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1182,7 +1182,8 @@ Quotes are single and double."
1182 "Return from STRING the NTH to MTH arguments. 1182 "Return from STRING the NTH to MTH arguments.
1183NTH and/or MTH can be nil, which means the last argument. 1183NTH and/or MTH can be nil, which means the last argument.
1184Returned arguments are separated by single spaces. 1184Returned arguments are separated by single spaces.
1185We assume whitespace separates arguments, except within quotes. 1185We assume whitespace separates arguments, except within quotes
1186and except for a space or tab that immediately follows a backslash.
1186Also, a run of one or more of a single character 1187Also, a run of one or more of a single character
1187in `comint-delimiter-argument-list' is a separate argument. 1188in `comint-delimiter-argument-list' is a separate argument.
1188Argument 0 is the command name." 1189Argument 0 is the command name."
@@ -1195,7 +1196,7 @@ Argument 0 is the command name."
1195 (let* ((first (if (and (eq system-type 'windows-nt) 1196 (let* ((first (if (and (eq system-type 'windows-nt)
1196 (w32-shell-dos-semantics)) 1197 (w32-shell-dos-semantics))
1197 "[^ \n\t\"'`]+\\|" 1198 "[^ \n\t\"'`]+\\|"
1198 "[^ \n\t\"'`\\]+\\|\\\\[\"'`\\]+\\|")) 1199 "[^ \n\t\"'`\\]+\\|\\\\[\"'`\\ \t]+\\|"))
1199 (argpart (concat first 1200 (argpart (concat first
1200 "\\(\"\\([^\"\\]\\|\\\\.\\)*\"\\|\ 1201 "\\(\"\\([^\"\\]\\|\\\\.\\)*\"\\|\
1201'[^']*'\\|\ 1202'[^']*'\\|\