[Emacs-diffs] emacs/src ChangeLog doc.c keyboard.c lread.c xd...

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/11/11 06:10:45

Modified files:
        src            : ChangeLog doc.c keyboard.c lread.c xdisp.c 
                         xfaces.c xfns.c xterm.c 

Log message:
        * xfns.c (syms_of_xfns): Use make_pure_string instead of build_string.
        * xterm.c (syms_of_xterm):
        * xfaces.c (syms_of_xfaces):
        * xdisp.c (syms_of_xdisp):
        * 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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/ChangeLog?cvsroot=emacs&r1=1.7855&r2=1.7856
http://cvs.savannah.gnu.org/viewcvs/emacs/src/doc.c?cvsroot=emacs&r1=1.138&r2=1.139
http://cvs.savannah.gnu.org/viewcvs/emacs/src/keyboard.c?cvsroot=emacs&r1=1.1021&r2=1.1022
http://cvs.savannah.gnu.org/viewcvs/emacs/src/lread.c?cvsroot=emacs&r1=1.417&r2=1.418
http://cvs.savannah.gnu.org/viewcvs/emacs/src/xdisp.c?cvsroot=emacs&r1=1.1317&r2=1.1318
http://cvs.savannah.gnu.org/viewcvs/emacs/src/xfaces.c?cvsroot=emacs&r1=1.441&r2=1.442
http://cvs.savannah.gnu.org/viewcvs/emacs/src/xfns.c?cvsroot=emacs&r1=1.747&r2=1.748
http://cvs.savannah.gnu.org/viewcvs/emacs/src/xterm.c?cvsroot=emacs&r1=1.1051&r2=1.1052

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/src/ChangeLog,v
retrieving revision 1.7855
retrieving revision 1.7856
diff -u -b -r1.7855 -r1.7856
--- ChangeLog   10 Nov 2009 21:22:57 -0000      1.7855
+++ ChangeLog   11 Nov 2009 06:10:42 -0000      1.7856
@@ -1,3 +1,14 @@
+2009-11-11  Dan Nicolaescu  <address@hidden>
+
+       * xfns.c (syms_of_xfns): Use make_pure_string instead of build_string.
+       * xterm.c (syms_of_xterm):
+       * xfaces.c (syms_of_xfaces):
+       * xdisp.c (syms_of_xdisp):
+       * 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>
 
        * fns.c (Fplist_get): Merge the active and the uncommented code.

Index: doc.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/doc.c,v
retrieving revision 1.138
retrieving revision 1.139
diff -u -b -r1.138 -r1.139
--- doc.c       6 Nov 2009 06:50:55 -0000       1.138
+++ doc.c       11 Nov 2009 06:10:44 -0000      1.139
@@ -619,6 +619,7 @@
         if (len > 0)
           Vbuild_files = Fcons (make_string (beg, len), Vbuild_files);
       }
+    Vbuild_files = Fpurecopy (Vbuild_files);
   }
 
   fd = emacs_open (name, O_RDONLY, 0);

Index: keyboard.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/keyboard.c,v
retrieving revision 1.1021
retrieving revision 1.1022
diff -u -b -r1.1021 -r1.1022
--- keyboard.c  10 Nov 2009 19:06:41 -0000      1.1021
+++ keyboard.c  11 Nov 2009 06:10:44 -0000      1.1022
@@ -11729,7 +11729,7 @@
   pending_funcalls = Qnil;
   staticpro (&pending_funcalls);
 
-  Vlispy_mouse_stem = build_string ("mouse");
+  Vlispy_mouse_stem = make_pure_c_string ("mouse");
   staticpro (&Vlispy_mouse_stem);
 
   /* Tool-bars.  */

Index: lread.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/lread.c,v
retrieving revision 1.417
retrieving revision 1.418
diff -u -b -r1.417 -r1.418
--- lread.c     6 Nov 2009 06:50:58 -0000       1.417
+++ lread.c     11 Nov 2009 06:10:44 -0000      1.418
@@ -4330,8 +4330,8 @@
 This list should not include the empty string.
 `load' and related functions try to append these suffixes, in order,
 to the specified file name if a Lisp suffix is allowed or required.  */);
-  Vload_suffixes = Fcons (build_string (".elc"),
-                         Fcons (build_string (".el"), Qnil));
+  Vload_suffixes = Fcons (make_pure_c_string (".elc"),
+                         Fcons (make_pure_c_string (".el"), Qnil));
   DEFVAR_LISP ("load-file-rep-suffixes", &Vload_file_rep_suffixes,
               doc: /* List of suffixes that indicate representations of \
 the same file.

Index: xdisp.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/xdisp.c,v
retrieving revision 1.1317
retrieving revision 1.1318
diff -u -b -r1.1317 -r1.1318
--- xdisp.c     6 Nov 2009 06:50:59 -0000       1.1317
+++ xdisp.c     11 Nov 2009 06:10:44 -0000      1.1318
@@ -24782,7 +24782,7 @@
   staticpro (&echo_area_buffer[0]);
   staticpro (&echo_area_buffer[1]);
 
-  Vmessages_buffer_name = build_string ("*Messages*");
+  Vmessages_buffer_name = make_pure_c_string ("*Messages*");
   staticpro (&Vmessages_buffer_name);
 
   mode_line_proptrans_alist = Qnil;
@@ -24852,7 +24852,7 @@
   DEFVAR_LISP ("overlay-arrow-string", &Voverlay_arrow_string,
     doc: /* String to display as an arrow in non-window frames.
 See also `overlay-arrow-position'.  */);
-  Voverlay_arrow_string = build_string ("=>");
+  Voverlay_arrow_string = make_pure_c_string ("=>");
 
   DEFVAR_LISP ("overlay-arrow-variable-list", &Voverlay_arrow_variable_list,
     doc: /* List of variables (symbols) which hold markers for overlay arrows.
@@ -24953,12 +24953,12 @@
 \(see `modify-frame-parameters').  */);
   Vicon_title_format
     = Vframe_title_format
-    = Fcons (intern_c_string ("multiple-frames"),
-            Fcons (build_string ("%b"),
-                   Fcons (Fcons (empty_unibyte_string,
-                                 Fcons (intern_c_string ("invocation-name"),
-                                        Fcons (build_string ("@"),
-                                               Fcons (intern_c_string 
("system-name"),
+    = pure_cons (make_pure_c_string ("multiple-frames"),
+                pure_cons (make_pure_c_string ("%b"),
+                           pure_cons (pure_cons (empty_unibyte_string,
+                                                 pure_cons (intern_c_string 
("invocation-name"),
+                                                            pure_cons 
(make_pure_c_string ("@"),
+                                                                       
pure_cons (intern_c_string ("system-name"),
                                                               Qnil)))),
                           Qnil)));
 

Index: xfaces.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/xfaces.c,v
retrieving revision 1.441
retrieving revision 1.442
diff -u -b -r1.441 -r1.442
--- xfaces.c    6 Nov 2009 18:47:51 -0000       1.441
+++ xfaces.c    11 Nov 2009 06:10:45 -0000      1.442
@@ -6952,7 +6952,7 @@
 This stipple pattern is used on monochrome displays
 instead of shades of gray for a face background color.
 See `set-face-stipple' for possible values for this variable.  */);
-  Vface_default_stipple = build_string ("gray3");
+  Vface_default_stipple = make_pure_c_string ("gray3");
 
   DEFVAR_LISP ("tty-defined-color-alist", &Vtty_defined_color_alist,
    doc: /* An alist of defined terminal colors and their RGB values.  */);

Index: xfns.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/xfns.c,v
retrieving revision 1.747
retrieving revision 1.748
diff -u -b -r1.747 -r1.748
--- xfns.c      6 Nov 2009 06:51:00 -0000       1.747
+++ xfns.c      11 Nov 2009 06:10:45 -0000      1.748
@@ -5932,7 +5932,7 @@
     char gtk_version[40];
     g_snprintf (gtk_version, sizeof (gtk_version), "%u.%u.%u",
                 GTK_MAJOR_VERSION, GTK_MINOR_VERSION, GTK_MICRO_VERSION);
-    Vgtk_version_string = build_string (gtk_version);
+    Vgtk_version_string = make_pure_string (gtk_version, strlen (gtk_version), 
strlen (gtk_version), 0);
   }
 #endif /* USE_GTK */
 

Index: xterm.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/xterm.c,v
retrieving revision 1.1051
retrieving revision 1.1052
diff -u -b -r1.1051 -r1.1052
--- xterm.c     6 Nov 2009 08:30:45 -0000       1.1051
+++ xterm.c     11 Nov 2009 06:10:45 -0000      1.1052
@@ -10847,7 +10847,7 @@
   last_mouse_press_frame = Qnil;
 
 #ifdef USE_GTK
-  xg_default_icon_file = build_string 
("icons/hicolor/scalable/apps/emacs.svg");
+  xg_default_icon_file = make_pure_c_string 
("icons/hicolor/scalable/apps/emacs.svg");
   staticpro (&xg_default_icon_file);
 
   Qx_gtk_map_stock = intern_c_string ("x-gtk-map-stock");