1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/desktop.el b/lisp/desktop.el
index a9fc0e226f1..0a27b90b392 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -104,7 +104,7 @@
 ;; USER OPTIONS -- settings you might want to play with.
 ;; ----------------------------------------------------------------------------
 (defconst desktop-basefilename
-  (if (eq system-type 'ms-dos)
+  (if (or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
      "emacs.dsk" ; Ms-Dos does not support multiple dots in file name
    ".emacs.desktop")
  "File for Emacs desktop.  A directory name will be prepended to this name.")

diff --git a/lisp/desktop.el b/lisp/desktop.el index a9fc0e226f1..0a27b90b392 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el
@@ -104,7 +104,7 @@
104	;; USER OPTIONS -- settings you might want to play with.	104	;; USER OPTIONS -- settings you might want to play with.
105	;; ----------------------------------------------------------------------------	105	;; ----------------------------------------------------------------------------
106	(defconst desktop-basefilename	106	(defconst desktop-basefilename
107	(if (eq system-type 'ms-dos)	107	(if (or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
108	"emacs.dsk" ; Ms-Dos does not support multiple dots in file name	108	"emacs.dsk" ; Ms-Dos does not support multiple dots in file name
109	".emacs.desktop")	109	".emacs.desktop")
110	"File for Emacs desktop. A directory name will be prepended to this name.")	110	"File for Emacs desktop. A directory name will be prepended to this name.")