[Emacs-diffs] emacs/src ChangeLog coding.c fileio.c fns.c fri...

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/11/11 20:11:56

Modified files:
        src            : ChangeLog coding.c fileio.c fns.c fringe.c 
                         gtkutil.c image.c keyboard.c process.c sysdep.c 
                         termcap.c xdisp.c xfns.c 

Log message:
        * process.c (ifflag_def): Make flag_sym constant.
        (Fnetwork_interface_info): Use a constant pointer.
        (ifflag_table):
        * xfns.c (cursor_bits):
        * xdisp.c (power_letter):
        * termcap.c (speeds, esctab):
        * sysdep.c (baud_convert):
        * keyboard.c (lispy_accent_codes, modifier_names):
        * image.c (xbm_format, xpm_format, pbm_format, png_format)
        (jpeg_format, tiff_format, gif_format, svg_format)
        (interlace_start, interlace_increment, gs_format):
        * gtkutil.c (separator_names):
        * fringe.c (swap_nibble):
        * fns.c (base64_value_to_char, base64_char_to_value):
        * fileio.c (make_temp_name_tbl):
        * coding.c (suffixes): Make constant.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/ChangeLog?cvsroot=emacs&r1=1.7859&r2=1.7860
http://cvs.savannah.gnu.org/viewcvs/emacs/src/coding.c?cvsroot=emacs&r1=1.442&r2=1.443
http://cvs.savannah.gnu.org/viewcvs/emacs/src/fileio.c?cvsroot=emacs&r1=1.662&r2=1.663
http://cvs.savannah.gnu.org/viewcvs/emacs/src/fns.c?cvsroot=emacs&r1=1.467&r2=1.468
http://cvs.savannah.gnu.org/viewcvs/emacs/src/fringe.c?cvsroot=emacs&r1=1.58&r2=1.59
http://cvs.savannah.gnu.org/viewcvs/emacs/src/gtkutil.c?cvsroot=emacs&r1=1.163&r2=1.164
http://cvs.savannah.gnu.org/viewcvs/emacs/src/image.c?cvsroot=emacs&r1=1.126&r2=1.127
http://cvs.savannah.gnu.org/viewcvs/emacs/src/keyboard.c?cvsroot=emacs&r1=1.1022&r2=1.1023
http://cvs.savannah.gnu.org/viewcvs/emacs/src/process.c?cvsroot=emacs&r1=1.602&r2=1.603
http://cvs.savannah.gnu.org/viewcvs/emacs/src/sysdep.c?cvsroot=emacs&r1=1.333&r2=1.334
http://cvs.savannah.gnu.org/viewcvs/emacs/src/termcap.c?cvsroot=emacs&r1=1.37&r2=1.38
http://cvs.savannah.gnu.org/viewcvs/emacs/src/xdisp.c?cvsroot=emacs&r1=1.1318&r2=1.1319
http://cvs.savannah.gnu.org/viewcvs/emacs/src/xfns.c?cvsroot=emacs&r1=1.748&r2=1.749

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/src/ChangeLog,v
retrieving revision 1.7859
retrieving revision 1.7860
diff -u -b -r1.7859 -r1.7860
--- ChangeLog   11 Nov 2009 19:25:24 -0000      1.7859
+++ ChangeLog   11 Nov 2009 20:11:51 -0000      1.7860
@@ -1,5 +1,22 @@
 2009-11-11  Dan Nicolaescu  <address@hidden>
 
+       * process.c (ifflag_def): Make flag_sym constant.
+       (Fnetwork_interface_info): Use a constant pointer.
+       (ifflag_table):
+       * xfns.c (cursor_bits):
+       * xdisp.c (power_letter):
+       * termcap.c (speeds, esctab):
+       * sysdep.c (baud_convert):
+       * keyboard.c (lispy_accent_codes, modifier_names):
+       * image.c (xbm_format, xpm_format, pbm_format, png_format)
+       (jpeg_format, tiff_format, gif_format, svg_format)
+       (interlace_start, interlace_increment, gs_format):
+       * gtkutil.c (separator_names):
+       * fringe.c (swap_nibble):
+       * fns.c (base64_value_to_char, base64_char_to_value):
+       * fileio.c (make_temp_name_tbl):
+       * coding.c (suffixes): Make constant.
+
        * frame.c (make_initial_frame):
        * buffer.c (init_buffer_once): Use make_pure_c_string instead of
        build_string.
@@ -18,6 +35,7 @@
        * lread.c (syms_of_lread):
        * keyboard.c (syms_of_keyboard): Use make_pure_c_string instead of
        build_string.
+
        * doc.c (Fsnarf_documentation): Purecopy Vbuild_files.
 
 2009-11-10  Stefan Monnier  <address@hidden>

Index: coding.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/coding.c,v
retrieving revision 1.442
retrieving revision 1.443
diff -u -b -r1.442 -r1.443
--- coding.c    6 Nov 2009 06:50:54 -0000       1.442
+++ coding.c    11 Nov 2009 20:11:52 -0000      1.443
@@ -9621,7 +9621,7 @@
   return Fnreverse (val);
 }
 
-static char *suffixes[] = { "-unix", "-dos", "-mac" };
+static const char *const suffixes[] = { "-unix", "-dos", "-mac" };
 
 static Lisp_Object
 make_subsidiaries (base)

Index: fileio.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/fileio.c,v
retrieving revision 1.662
retrieving revision 1.663
diff -u -b -r1.662 -r1.663
--- fileio.c    6 Nov 2009 06:50:56 -0000       1.662
+++ fileio.c    11 Nov 2009 20:11:53 -0000      1.663
@@ -657,7 +657,7 @@
                                STRING_MULTIBYTE (directory));
 }
 
-static char make_temp_name_tbl[64] =
+static const char make_temp_name_tbl[64] =
 {
   'A','B','C','D','E','F','G','H',
   'I','J','K','L','M','N','O','P',

Index: fns.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/fns.c,v
retrieving revision 1.467
retrieving revision 1.468
diff -u -b -r1.467 -r1.468
--- fns.c       10 Nov 2009 21:22:58 -0000      1.467
+++ fns.c       11 Nov 2009 20:11:53 -0000      1.468
@@ -3189,7 +3189,7 @@
   while (IS_BASE64_IGNORABLE (c))
 
 /* Table of characters coding the 64 values.  */
-static char base64_value_to_char[64] =
+static const char base64_value_to_char[64] =
 {
   'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',    /*  0- 9 */
   'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',    /* 10-19 */
@@ -3201,7 +3201,7 @@
 };
 
 /* Table of base64 values for first 128 characters.  */
-static short base64_char_to_value[128] =
+static const short base64_char_to_value[128] =
 {
   -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,     /*   0-  9 */
   -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,     /*  10- 19 */

Index: fringe.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/fringe.c,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -b -r1.58 -r1.59
--- fringe.c    6 Nov 2009 06:50:56 -0000       1.58
+++ fringe.c    11 Nov 2009 20:11:53 -0000      1.59
@@ -1330,7 +1330,7 @@
 */
 
 #if defined (HAVE_X_WINDOWS)
-static unsigned char swap_nibble[16] = {
+static const unsigned char swap_nibble[16] = {
   0x0, 0x8, 0x4, 0xc,           /* 0000 1000 0100 1100 */
   0x2, 0xa, 0x6, 0xe,           /* 0010 1010 0110 1110 */
   0x1, 0x9, 0x5, 0xd,           /* 0001 1001 0101 1101 */

Index: gtkutil.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/gtkutil.c,v
retrieving revision 1.163
retrieving revision 1.164
diff -u -b -r1.163 -r1.164
--- gtkutil.c   10 Nov 2009 19:06:41 -0000      1.163
+++ gtkutil.c   11 Nov 2009 20:11:54 -0000      1.164
@@ -2013,7 +2013,7 @@
 /* Return non-zero if LABEL specifies a separator (GTK only has one
    separator type)  */
 
-static char* separator_names[] = {
+static const char* separator_names[] = {
   "space",
   "no-line",
   "single-line",

Index: image.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/image.c,v
retrieving revision 1.126
retrieving revision 1.127
diff -u -b -r1.126 -r1.127
--- image.c     6 Nov 2009 06:50:57 -0000       1.126
+++ image.c     11 Nov 2009 20:11:54 -0000      1.127
@@ -2338,7 +2338,7 @@
 /* Vector of image_keyword structures describing the format
    of valid XBM image specifications.  */
 
-static struct image_keyword xbm_format[XBM_LAST] =
+static const struct image_keyword xbm_format[XBM_LAST] =
 {
   {":type",            IMAGE_SYMBOL_VALUE,                     1},
   {":file",            IMAGE_STRING_VALUE,                     0},
@@ -3138,7 +3138,7 @@
 /* Vector of image_keyword structures describing the format
    of valid XPM image specifications.  */
 
-static struct image_keyword xpm_format[XPM_LAST] =
+static const struct image_keyword xpm_format[XPM_LAST] =
 {
   {":type",            IMAGE_SYMBOL_VALUE,                     1},
   {":file",            IMAGE_STRING_VALUE,                     0},
@@ -5087,7 +5087,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword pbm_format[PBM_LAST] =
+static const struct image_keyword pbm_format[PBM_LAST] =
 {
   {":type",            IMAGE_SYMBOL_VALUE,                     1},
   {":file",            IMAGE_STRING_VALUE,                     0},
@@ -5509,7 +5509,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword png_format[PNG_LAST] =
+static const struct image_keyword png_format[PNG_LAST] =
 {
   {":type",            IMAGE_SYMBOL_VALUE,                     1},
   {":data",            IMAGE_STRING_VALUE,                     0},
@@ -6111,7 +6111,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword jpeg_format[JPEG_LAST] =
+static const struct image_keyword jpeg_format[JPEG_LAST] =
 {
   {":type",            IMAGE_SYMBOL_VALUE,                     1},
   {":data",            IMAGE_STRING_VALUE,                     0},
@@ -6684,7 +6684,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword tiff_format[TIFF_LAST] =
+static const struct image_keyword tiff_format[TIFF_LAST] =
 {
   {":type",            IMAGE_SYMBOL_VALUE,                     1},
   {":data",            IMAGE_STRING_VALUE,                     0},
@@ -7136,7 +7136,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword gif_format[GIF_LAST] =
+static const struct image_keyword gif_format[GIF_LAST] =
 {
   {":type",            IMAGE_SYMBOL_VALUE,                     1},
   {":data",            IMAGE_STRING_VALUE,                     0},
@@ -7280,8 +7280,8 @@
 /* Load GIF image IMG for use on frame F.  Value is non-zero if
    successful.  */
 
-static int interlace_start[] = {0, 4, 2, 1};
-static int interlace_increment[] = {8, 8, 4, 2};
+static const int interlace_start[] = {0, 4, 2, 1};
+static const int interlace_increment[] = {8, 8, 4, 2};
 
 static int
 gif_load (f, img)
@@ -7575,7 +7575,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword svg_format[SVG_LAST] =
+static const struct image_keyword svg_format[SVG_LAST] =
 {
   {":type",            IMAGE_SYMBOL_VALUE,                     1},
   {":data",            IMAGE_STRING_VALUE,                     0},
@@ -7982,7 +7982,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword gs_format[GS_LAST] =
+static const struct image_keyword gs_format[GS_LAST] =
 {
   {":type",            IMAGE_SYMBOL_VALUE,                     1},
   {":pt-width",                IMAGE_POSITIVE_INTEGER_VALUE,           1},

Index: keyboard.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/keyboard.c,v
retrieving revision 1.1022
retrieving revision 1.1023
diff -u -b -r1.1022 -r1.1023
--- keyboard.c  11 Nov 2009 06:10:44 -0000      1.1022
+++ keyboard.c  11 Nov 2009 20:11:54 -0000      1.1023
@@ -4770,7 +4770,7 @@
 /* This is a list of keysym codes for special "accent" characters.
    It parallels lispy_accent_keys.  */
 
-static int lispy_accent_codes[] =
+static const int lispy_accent_codes[] =
 {
 #ifdef XK_dead_circumflex
   XK_dead_circumflex,
@@ -6484,7 +6484,7 @@
 }
 
 
-static char *modifier_names[] =
+static const char *modifier_names[] =
 {
   "up", "down", "drag", "click", "double", "triple", 0, 0,
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

Index: process.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/process.c,v
retrieving revision 1.602
retrieving revision 1.603
diff -u -b -r1.602 -r1.603
--- process.c   10 Nov 2009 19:06:41 -0000      1.602
+++ process.c   11 Nov 2009 20:11:54 -0000      1.603
@@ -3980,10 +3980,10 @@
 
 struct ifflag_def {
   int flag_bit;
-  char *flag_sym;
+  const char *flag_sym;
 };
 
-static struct ifflag_def ifflag_table[] = {
+static const struct ifflag_def ifflag_table[] = {
 #ifdef IFF_UP
   { IFF_UP,            "up" },
 #endif
@@ -4079,7 +4079,7 @@
   if (ioctl (s, SIOCGIFFLAGS, &rq) == 0)
     {
       int flags = rq.ifr_flags;
-      struct ifflag_def *fp;
+      const struct ifflag_def *fp;
       int fnum;
 
       any++;

Index: sysdep.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/sysdep.c,v
retrieving revision 1.333
retrieving revision 1.334
diff -u -b -r1.333 -r1.334
--- sysdep.c    24 Oct 2009 14:01:05 -0000      1.333
+++ sysdep.c    11 Nov 2009 20:11:54 -0000      1.334
@@ -168,7 +168,7 @@
 #define LPASS8 0
 #endif
 
-static int baud_convert[] =
+static const int baud_convert[] =
   {
     0, 50, 75, 110, 135, 150, 200, 300, 600, 1200,
     1800, 2400, 4800, 9600, 19200, 38400

Index: termcap.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/termcap.c,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- termcap.c   19 Oct 2009 04:27:18 -0000      1.37
+++ termcap.c   11 Nov 2009 20:11:55 -0000      1.38
@@ -184,7 +184,7 @@
    gives meaning of character following \, or a space if no special meaning.
    Sixteen characters per line within the string.  */
 
-static char esctab[]
+static const char esctab[]
   = " \057\026  \047\014         \
      \025   \015      \
    \005 \013          \
@@ -194,7 +194,7 @@
    gives meaning of character following \, or a space if no special meaning.
    Eight characters per line within the string.  */
 
-static char esctab[]
+static const char esctab[]
   = " \007\010  \033\014 \
       \012 \
   \015 \011 \013 \
@@ -348,7 +348,7 @@
 /* Actual baud rate if positive;
    - baud rate / 100 if negative.  */
 
-static int speeds[] =
+static const int speeds[] =
   {
     0, 50, 75, 110, 135, 150, -2, -3, -6, -12,
     -18, -24, -48, -96, -192, -288, -384, -576, -1152

Index: xdisp.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/xdisp.c,v
retrieving revision 1.1318
retrieving revision 1.1319
diff -u -b -r1.1318 -r1.1319
--- xdisp.c     11 Nov 2009 06:10:44 -0000      1.1318
+++ xdisp.c     11 Nov 2009 20:11:55 -0000      1.1319
@@ -18077,7 +18077,7 @@
    readable" representation of the nonnegative integer D to BUF using
    a minimal field width WIDTH.  D should be smaller than 999.5e24. */
 
-static const char power_letter[] =
+static const const char power_letter[] =
   {
     0,  /* not used */
     'k', /* kilo */

Index: xfns.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/xfns.c,v
retrieving revision 1.748
retrieving revision 1.749
diff -u -b -r1.748 -r1.749
--- xfns.c      11 Nov 2009 06:10:45 -0000      1.748
+++ xfns.c      11 Nov 2009 20:11:55 -0000      1.749
@@ -2885,14 +2885,6 @@
    background, border and mouse colors; also create the
    mouse cursor and the gray border tile.  */
 
-static char cursor_bits[] =
-  {
-    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
-  };
-
 static void
 x_make_gc (f)
      struct frame *f;