From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 Jun 1995 15:30:58 +0000 (+0000)
Subject: (process_file,absolute_filename): Handle filenames
X-Git-Tag: emacs-19.34~3617
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27fc16debc34f0110480af6e636191bd17a2a5fd;p=emacs.git

(process_file,absolute_filename): Handle filenames
starting with a drive letter.
---

diff --git a/lib-src/etags.c b/lib-src/etags.c
index c31366d56d0..7c049568a2a 100644
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -1033,7 +1033,11 @@ process_file (file)
     {
       char *filename;
 
+#ifdef DOS_NT
+      if (file[0] == '/' || (isalpha (file[0]) && file[1] == ':'))
+#else
       if (file[0] == '/')
+#endif
 	{
 	  /* file is an absolute filename.  Canonicalise it. */
 	  filename = absolute_filename (file, cwd);
@@ -3747,7 +3751,11 @@ absolute_filename (file, cwd)
 {
   char *slashp, *cp, *res;
 
+#ifdef DOS_NT
+  if (file[0] == '/' || (isalpha (file[0]) && file[1] == ':'))
+#else
   if (file[0] == '/')
+#endif
     res = concat (file, "", "");
   else
     res = concat (cwd, file, "");