From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Jul 2002 19:48:04 +0000 (+0000)
Subject: (Ffind_coding_systems_region_interval): Use const for
X-Git-Tag: ttn-vms-21-2-B4~14056
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a90f2c3549a5173e59755ac834c4f85505b3fcc8;p=emacs.git

(Ffind_coding_systems_region_interval): Use const for
pointer to lisp string data.
---

diff --git a/src/coding.c b/src/coding.c
index 0afe0b3ac42..23ccfbce390 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -6414,7 +6414,7 @@ DEFUN ("find-coding-systems-region-internal",
   Lisp_Object work_table, safe_codings;
   int non_ascii_p = 0;
   int single_byte_char_found = 0;
-  unsigned char *p1, *p1end, *p2, *p2end, *p;
+  const unsigned char *p1, *p1end, *p2, *p2end, *p;
 
   if (STRINGP (start))
     {