(dired-do-create-files): On DOS/Windows, allow to

[gnu-emacs] / lisp / files.el

diff --git a/lisp/files.el b/lisp/files.el
index bb17d5ca13b469418eda73d3e8ca0b841501627c..b86b8d640040bb2314c3648e4a5d8b07415099aa 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3453,7 +3453,9 @@ PATTERN that already quotes some of the special characters."
                (concat (substring pattern 0 (match-beginning 0))
                        "\\"
                        (substring pattern (match-beginning 0)))
-               beg (1+ (match-end 0)))))))))
+               beg (1+ (match-end 0)))))
+      pattern))))
+  
 
 (defvar insert-directory-program "ls"
   "Absolute or relative name of the `ls' program used by `insert-directory'.")