[Emacs-diffs] emacs-25 b6ad460: Make sure *scratch* etc. use forward slashes in its default-directory

[Eli Zaretskii]

branch: emacs-25
commit b6ad4608be82dd4c15deb33c6c969977425cecb2
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Make sure *scratch* etc. use forward slashes in its default-directory
    
    * lisp/startup.el (normal-top-level): On MS-Windows, convert
    backslashes to forward slashes while decoding default-directory
    of the initially-created buffers.
---
 lisp/startup.el |    6 +++++-
 1 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/lisp/startup.el b/lisp/startup.el
index 1346310..a31d355 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -544,7 +544,11 @@ It is the default value of the variable `top-level'."
            (set-buffer elt)
            (if default-directory
                (setq default-directory
-                     (decode-coding-string default-directory coding t)))))
+                      (if (eq system-type 'windows-nt)
+                          ;; Convert backslashes to forward slashes.
+                          (expand-file-name
+                           (decode-coding-string default-directory coding t))
+                        (decode-coding-string default-directory coding t))))))
 
        ;; Decode all the important variables and directory lists, now
        ;; that we know the locale's encoding.  This is because the