diff options
author | Eli Zaretskii <eliz@gnu.org> | 2015-12-25 18:37:31 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2015-12-25 18:37:31 +0200 |
commit | b6ad4608be82dd4c15deb33c6c969977425cecb2 (patch) | |
tree | e0644a47b17787f4e366f37dbe9effcb25fcd70a /lisp | |
parent | e59b2ee8cdfe75785f3e49acd9a03db784114763 (diff) | |
download | emacs-b6ad4608be82dd4c15deb33c6c969977425cecb2.tar.gz |
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.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 13463107d2e..a31d35544a4 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 |