# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 783668901 0
# Node ID 178a3bf170f3ca599d59632d47bad89d8ec713ab
# Parent  b25efd6c4f3027d818d775ded5e60a5b33a4168a
(abbreviate-file-name): Handle drive letters on windows-nt as on ms-dos.

diff -r b25efd6c4f30 -r 178a3bf170f3 lisp/files.el
--- a/lisp/files.el	Tue Nov 01 05:46:57 1994 +0000
+++ b/lisp/files.el	Tue Nov 01 05:48:21 1994 +0000
@@ -597,7 +597,8 @@
 	     ;; If the home dir is just /, don't change it.
 	     (not (and (= (match-end 0) 1)
 		       (= (aref filename 0) ?/)))
-	     (not (and (eq system-type 'ms-dos)
+	     (not (and (or (eq system-type 'ms-dos) 
+			   (eq system-type 'windows-nt))
 		       (save-match-data
 			 (string-match "^[a-zA-Z]:/$" filename)))))
 	(setq filename