Mercurial > emacs

diff lisp/files.el @ 9777:178a3bf170f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(abbreviate-file-name): Handle drive letters on windows-nt as on ms-dos.
author Richard M. Stallman <rms@gnu.org>
date Tue, 01 Nov 1994 05:48:21 +0000
parents 2fbc8ef9ff44
children e797886a4244
line wrap: on
line diff
--- 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