# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1216740501 0
# Node ID 532dd6819465b117728bbcd5ccacb34c2b95f046
# Parent  4aec559b9f05790604299da14fc091f7de019bb2
(Fw32_long_file_name): Don't append dir separator to bare drive.

diff -r 4aec559b9f05 -r 532dd6819465 src/ChangeLog
--- a/src/ChangeLog	Tue Jul 22 12:33:13 2008 +0000
+++ b/src/ChangeLog	Tue Jul 22 15:28:21 2008 +0000
@@ -1,3 +1,8 @@
+2008-07-22  Jason Rumney  <jasonr@gnu.org>
+
+        * w32proc.c (Fw32_long_file_name): Don't append dir separator to
+        bare drive.
+
 2008-07-22  Adrian Robert  <Adrian.B.Robert@gmail.com>
 
 	* nsgui.h:
@@ -11526,7 +11531,6 @@
 	* w32fns.c (globals_of_w32fns): Init common controls.
 
 2007-10-08  Richard Stallman  <rms@gnu.org>
-
 	* image.c (our_memory_buffer): Rename from omfib_buffer.
 
 2007-10-08  Richard Stallman  <rms@gnu.org>
diff -r 4aec559b9f05 -r 532dd6819465 src/w32proc.c
--- a/src/w32proc.c	Tue Jul 22 12:33:13 2008 +0000
+++ b/src/w32proc.c	Tue Jul 22 15:28:21 2008 +0000
@@ -1799,9 +1799,14 @@
      Lisp_Object filename;
 {
   char longname[ MAX_PATH ];
+  int drive_only = 0;
 
   CHECK_STRING (filename);
 
+  if (SBYTES (filename) == 2
+      && *(SDATA (filename) + 1) == ':')
+    drive_only = 1;
+
   /* first expand it.  */
   filename = Fexpand_file_name (filename, Qnil);
 
@@ -1810,6 +1815,12 @@
 
   CORRECT_DIR_SEPS (longname);
 
+  /* If we were passed only a drive, make sure that a slash is not appended
+     for consistency with directories.  Allow for drive mapping via SUBST
+     in case expand-file-name is ever changed to expand those.  */
+  if (drive_only && longname[1] == ':' && longname[2] == '/' && !longname[3])
+    longname[2] = '\0';
+
   return build_string (longname);
 }