# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 888865348 0
# Node ID edbd4156cf68fbd0f01d533021c36f894ccbfe80
# Parent  1ecfba12016a18cbbc08bb4fb25a82378b54929e
(comint-arguments): Treat \" and such as part of one arg.

diff -r 1ecfba12016a -r edbd4156cf68 lisp/comint.el
--- a/lisp/comint.el	Mon Mar 02 18:53:21 1998 +0000
+++ b/lisp/comint.el	Mon Mar 02 19:02:28 1998 +0000
@@ -1126,7 +1126,15 @@
 Also, a run of one or more of a single character
 in `comint-delimiter-argument-list' is a separate argument.
 Argument 0 is the command name."
-  (let ((argpart "[^ \n\t\"'`]+\\|\\(\"[^\"]*\"\\|'[^']*'\\|`[^`]*`\\)")
+  ;; The first line handles ordinary characters and backslash-sequences.
+  ;; The second matches "-quoted strings.
+  ;; The third matches '-quoted strings.
+  ;; The fourth matches `-quoted strings.
+  ;; This seems to fit the syntax of BASH 2.0.
+  (let ((argpart "[^ \n\t\"'`\\]+\\|\\\\[\"'`\\]+\\|\
+\\(\"\\([^\"\\]\\|\\\\.\\)*\"\\|\
+'[^']*'\\|\
+`[^`]*`\\)") 
 	(args ()) (pos 0)
 	(count 0)
 	beg str value quotes)