From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 19 Aug 2002 17:24:08 +0000 (+0000)
Subject: (Ffile_name_directory) [DOS_NT]: Don't declare `beg'
X-Git-Tag: ttn-vms-21-2-B4~13638
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=100c44b777ec06973206802d2b89dee12c2c6b28;p=emacs.git

(Ffile_name_directory) [DOS_NT]: Don't declare `beg'
`const' since CORRECT_DIR_SEPS modifies its target.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index e0bc7599fda..2e785910e62 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2002-08-19  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* fileio.c (Ffile_name_directory) [DOS_NT]: Don't declare `beg'
+	`const' since CORRECT_DIR_SEPS modifies its target.
+
 2002-08-19  Kim F. Storm  <storm@cua.dk>
 
 	* keyboard.c (Fclear_this_command_keys): Added optional arg
diff --git a/src/fileio.c b/src/fileio.c
index f764bff2200..f515442be3c 100644
--- 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;