# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 920650558 0
# Node ID 6643d1ccd5a1e992e30c60343b3a73beac1a60de
# Parent  faac941ad28d4e62c6f260ff6dcc7e0c3c5201ec
(convert-standard-filename): Convert directory
separators to Windows format.

diff -r faac941ad28d -r 6643d1ccd5a1 lisp/w32-fns.el
--- a/lisp/w32-fns.el	Fri Mar 05 09:37:00 1999 +0000
+++ b/lisp/w32-fns.el	Fri Mar 05 16:15:58 1999 +0000
@@ -233,6 +233,10 @@
     (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