# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1072260331 0
# Node ID bb2708b976f118485b14a0422a8c77cb1f636f05
# Parent  00ac281668653536c4a582b32f6745c196852fc8
(comint-quote-filename): Correctly handle backslash
in comint-file-name-quote-list.

diff -r 00ac28166865 -r bb2708b976f1 lisp/comint.el
--- a/lisp/comint.el	Wed Dec 24 07:32:41 2003 +0000
+++ b/lisp/comint.el	Wed Dec 24 10:05:31 2003 +0000
@@ -2625,11 +2625,13 @@
   (if (null comint-file-name-quote-list)
       filename
     (let ((regexp
-	   (format "\\(^\\|[^\\]\\)\\([%s]\\)"
+	   (format "[%s]"
 	    (mapconcat 'char-to-string comint-file-name-quote-list ""))))
       (save-match-data
-	(while (string-match regexp filename)
-	  (setq filename (replace-match "\\1\\\\\\2" nil nil filename)))
+	(let ((i 0))
+	  (while (string-match regexp filename i)
+	    (setq filename (replace-match "\\\\\\&" nil nil filename))
+	    (setq i (1+ (match-end 0)))))
 	filename))))
 
 (defun comint-unquote-filename (filename)