# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1027319998 0
# Node ID af9012fdad56771a8a00011b524d50681d5fd7ad
# Parent  1a232a6d79fcaa6e3c0ba5a5e161720a4355e930
(LEADING_CODE_PRIVATE_11, LEADING_CODE_PRIVATE_12,
LEADING_CODE_PRIVATE_21, LEADING_CODE_PRIVATE_22): Macros
deleted.  Callers changes to use
EMACS_MULE_LEADING_CODE_PRIVATE_11, etc.
(decode_coding_ccl): Add `const' to local variables.
(consume_chars): Likewise.
(Ffind_coding_systems_region_internal): Likewise.
(Fcheck_coding_systems_region): Likewise.

diff -r 1a232a6d79fc -r af9012fdad56 src/coding.c
--- a/src/coding.c	Mon Jul 22 06:36:50 2002 +0000
+++ b/src/coding.c	Mon Jul 22 06:39:58 2002 +0000
@@ -1537,13 +1537,6 @@
 
 char emacs_mule_bytes[256];
 
-/* Leading-code followed by extended leading-code.  */
-#define LEADING_CODE_PRIVATE_11	0x9A /* for private DIMENSION1 of 1-column */
-#define LEADING_CODE_PRIVATE_12	0x9B /* for private DIMENSION1 of 2-column */
-#define LEADING_CODE_PRIVATE_21	0x9C /* for private DIMENSION2 of 1-column */
-#define LEADING_CODE_PRIVATE_22	0x9D /* for private DIMENSION2 of 2-column */
-
-
 int
 emacs_mule_char (coding, src, nbytes, nchars)
      struct coding_system *coding;
@@ -1569,8 +1562,8 @@
       break;
 
     case 3:
-      if (c == LEADING_CODE_PRIVATE_11
-	  || c == LEADING_CODE_PRIVATE_12)
+      if (c == EMACS_MULE_LEADING_CODE_PRIVATE_11
+	  || c == EMACS_MULE_LEADING_CODE_PRIVATE_12)
 	{
 	  ONE_MORE_BYTE (c);
 	  if (! (charset = emacs_mule_charset[c]))
@@ -4102,7 +4095,7 @@
 decode_coding_ccl (coding)
      struct coding_system *coding;
 {
-  unsigned char *src = coding->source + coding->consumed;
+  const unsigned char *src = coding->source + coding->consumed;
   unsigned char *src_end = coding->source + coding->src_bytes;
   int *charbuf = coding->charbuf;
   int *charbuf_end = charbuf + coding->charbuf_size;
@@ -4116,7 +4109,7 @@
 
   while (src < src_end)
     {
-      unsigned char *p = src;
+      const unsigned char *p = src;
       int *source, *source_end;
       int i = 0;
 
@@ -5619,7 +5612,7 @@
   int *buf = coding->charbuf;
   /* -1 is to compensate for CRLF.  */
   int *buf_end = coding->charbuf + coding->charbuf_size - 1;
-  unsigned char *src = coding->source + coding->consumed;
+  const unsigned char *src = coding->source + coding->consumed;
   int pos = coding->src_pos + coding->consumed_char;
   int end_pos = coding->src_pos + coding->src_chars;
   int multibytep = coding->src_multibyte;
@@ -6457,7 +6450,7 @@
 {
   Lisp_Object coding_attrs_list, safe_codings;
   EMACS_INT start_byte, end_byte;
-  unsigned char *p, *pbeg, *pend;
+  const unsigned char *p, *pbeg, *pend;
   int c;
   Lisp_Object tail, elt;
 
@@ -6587,7 +6580,7 @@
   Lisp_Object list;
   EMACS_INT start_byte, end_byte;
   int pos;
-  unsigned char *p, *pbeg, *pend;
+  const unsigned char *p, *pbeg, *pend;
   int c;
   Lisp_Object tail, elt;
 
@@ -7890,10 +7883,10 @@
     {
       emacs_mule_bytes[i] = 1;
     }
-  emacs_mule_bytes[LEADING_CODE_PRIVATE_11] = 3;
-  emacs_mule_bytes[LEADING_CODE_PRIVATE_12] = 3;
-  emacs_mule_bytes[LEADING_CODE_PRIVATE_21] = 4;
-  emacs_mule_bytes[LEADING_CODE_PRIVATE_22] = 4;
+  emacs_mule_bytes[EMACS_MULE_LEADING_CODE_PRIVATE_11] = 3;
+  emacs_mule_bytes[EMACS_MULE_LEADING_CODE_PRIVATE_12] = 3;
+  emacs_mule_bytes[EMACS_MULE_LEADING_CODE_PRIVATE_21] = 4;
+  emacs_mule_bytes[EMACS_MULE_LEADING_CODE_PRIVATE_22] = 4;
 }
 
 #ifdef emacs