From dd89ee952087ea86cec2900f76426960dcced747 Mon Sep 17 00:00:00 2001 From: Andrew Innes Date: Fri, 5 Mar 1999 16:15:58 +0000 Subject: [PATCH] (convert-standard-filename): Convert directory separators to Windows format. --- lisp/w32-fns.el | 4 ++++ 1 file changed, 4 insertions(+) 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 -- 2.39.2