changeset 46556:71e205b50a3e

(may_use_scalable_font_p): Argument now points to const. (x_face_list_fonts, x_update_menu_appearance): (hash_string_case_insensitive): Treat Lisp string contents as const.

--- a/src/xfaces.c	Fri Jul 19 14:27:24 2002 +0000
+++ b/src/xfaces.c	Fri Jul 19 14:27:28 2002 +0000
@@ -484,7 +484,7 @@
 static void map_tty_color P_ ((struct frame *, struct face *,
 			       enum lface_attribute_index, int *));
 static Lisp_Object resolve_face_name P_ ((Lisp_Object));
-static int may_use_scalable_font_p P_ ((char *));
+static int may_use_scalable_font_p P_ ((const char *));
 static void set_font_frame_param P_ ((Lisp_Object, Lisp_Object));
 static int better_font_p P_ ((int *, struct font_name *, struct font_name *,
 			      int, int));
@@ -2476,7 +2476,7 @@
   for (tem = lfonts; CONSP (tem) && n < nfonts; tem = XCDR (tem))
     {
       Lisp_Object elt, tail;
-      char *name = SDATA (XCAR (tem));
+      const char *name = SDATA (XCAR (tem));
 
       /* Ignore fonts matching a pattern from face-ignored-fonts.  */
       for (tail = Vface_ignored_fonts; CONSP (tail); tail = XCDR (tail))
@@ -4528,7 +4528,7 @@
       char line[512];
       Lisp_Object lface = lface_from_face_name (f, Qmenu, 1);
       struct face *face = FACE_FROM_ID (f, MENU_FACE_ID);
-      char *myname = SDATA (Vx_resource_name);
+      const char *myname = SDATA (Vx_resource_name);
       int changed_p = 0;
 #ifdef USE_MOTIF
       const char *popup_path = "popup_menu";
@@ -4939,7 +4939,7 @@
 hash_string_case_insensitive (string)
      Lisp_Object string;
 {
-  unsigned char *s;
+  const unsigned char *s;
   unsigned hash = 0;
   xassert (STRINGP (string));
   for (s = SDATA (string); *s; ++s)
@@ -6126,7 +6126,7 @@
 
 static int
 may_use_scalable_font_p (font)
-     char *font;
+     const char *font;
 {
   if (EQ (Vscalable_fonts_allowed, Qt))
     return 1;