diff options
| author | Andrew Innes <andrewi@gnu.org> | 1999-03-05 16:15:58 +0000 |
|---|---|---|
| committer | Andrew Innes <andrewi@gnu.org> | 1999-03-05 16:15:58 +0000 |
| commit | cb9db4e3a1e1e3ed3d58a864c1874db831910209 (patch) | |
| tree | 72bdf986412e913bd3d1d0a408b4dc297dcbbb85 /lisp/w32-fns.el | |
| parent | b583e33fa7ba871cb87eb0a3fc09a81a59e3c3a3 (diff) | |
| download | emacs-cb9db4e3a1e1e3ed3d58a864c1874db831910209.tar.gz | |
(convert-standard-filename): Convert directory
separators to Windows format.
Diffstat (limited to 'lisp/w32-fns.el')
| -rw-r--r-- | lisp/w32-fns.el | 4 |
1 files changed, 4 insertions, 0 deletions
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 |