# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 833999054 0
# Node ID cf1e6f4dd2b0b3e4414ef1fc45bbe276e0d970df
# Parent  8d23d63f1eee7e61102e89cdca05fff7e3882e8d
(comint-dynamic-complete-filename) [ms-dos, windows-nt]:
Always use backslash as a directory separator when completing
in shell mode on these systems.

(comint-unquote-filename): Handle quoted backslashes.

diff -r 8d23d63f1eee -r cf1e6f4dd2b0 lisp/comint.el
--- a/lisp/comint.el	Wed Jun 05 17:57:26 1996 +0000
+++ b/lisp/comint.el	Wed Jun 05 18:24:14 1996 +0000
@@ -1880,8 +1880,10 @@
   (if (null comint-file-name-quote-list)
       filename
     (save-match-data
-      (while (string-match "\\\\\\(.\\)" filename)
-	(setq filename (replace-match "\\1" nil nil filename)))
+      (let ((i 0))
+	(while (string-match "\\\\\\(.\\)" filename i)
+	  (setq filename (replace-match "\\1" nil nil filename))
+	  (setq i (+ 1 (match-beginning 0)))))
       filename)))
 
 
@@ -1910,10 +1912,13 @@
 Returns t if successful."
   (interactive)
   (if (comint-match-partial-filename)
-      (prog2 (or (window-minibuffer-p (selected-window))
-		 (message "Completing file name..."))
-	  (comint-dynamic-complete-as-filename))))
-
+      (let ((directory-sep-char ?/))
+	(if (memq system-type '(ms-dos windows-nt))
+	    ; The default shells on these systems require backslashed names
+	    (setq directory-sep-char ?\\))
+	(prog2 (or (window-minibuffer-p (selected-window))
+		   (message "Completing file name..."))
+	    (comint-dynamic-complete-as-filename)))))
 
 (defun comint-dynamic-complete-as-filename ()
   "Dynamically complete at point as a filename.