From cb9db4e3a1e1e3ed3d58a864c1874db831910209 Mon Sep 17 00:00:00 2001
From: Andrew Innes <andrewi@gnu.org>
Date: Fri, 5 Mar 1999 16:15:58 +0000
Subject: (convert-standard-filename): Convert directory separators to Windows
 format.

---
 lisp/w32-fns.el | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lisp/w32-fns.el')

diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index a35e38fb50d..d573e6e88c0 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -233,6 +233,10 @@ with a definition that really does change some file names."
     (while (string-match "[?*:<>|\"\000-\037]" name start)
       (aset name (match-beginning 0) ?!)
       (setq start (match-end 0)))
+    ;; convert directory separators to Windows format
+    (while (string-match "/" name start)
+      (aset name (match-beginning 0) ?\\)
+      (setq start (match-end 0)))
     name))
 
 ;;; Fix interface to (X-specific) mouse.el
-- 
cgit v1.2.1