(Ffile_name_directory) [DOS_NT]: Don't declare `beg'

[bpt/emacs.git] / src / fileio.c

diff --git a/src/fileio.c b/src/fileio.c
index f764bff..f515442 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -393,7 +393,11 @@ on VMS, perhaps instead a string ending in `:', `]' or `>'.  */)
      (filename)
      Lisp_Object filename;
 {
+#ifndef DOS_NT
   register const unsigned char *beg;
+#else
+  register unsigned char *beg;
+#endif
   register const unsigned char *p;
   Lisp_Object handler;