# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1026848901 0
# Node ID 9629aca792bbe8eee25fea8a3c311c347777f4d1
# Parent  5c56d4068a019f2eda87365822adc9a9bf621a87
(font_family_registry, fs_query_fontset):
(list_fontsets): Use const for pointer to lisp string data.

diff -r 5c56d4068a01 -r 9629aca792bb src/fontset.c
--- a/src/fontset.c	Tue Jul 16 19:48:17 2002 +0000
+++ b/src/fontset.c	Tue Jul 16 19:48:21 2002 +0000
@@ -370,8 +370,8 @@
      int force;
 {
   Lisp_Object family, registry;
-  char *p = SDATA (fontname);
-  char *sep[15];
+  const char *p = SDATA (fontname);
+  const char *sep[15];
   int i = 0;
 
   while (*p && i < 15)
@@ -782,7 +782,7 @@
   for (i = 0; i < ASIZE (Vfontset_table); i++)
     {
       Lisp_Object fontset;
-      unsigned char *this_name;
+      const unsigned char *this_name;
 
       fontset = FONTSET_FROM_ID (i);
       if (NILP (fontset)
@@ -847,7 +847,7 @@
   for (id = 0; id < ASIZE (Vfontset_table); id++)
     {
       Lisp_Object fontset;
-      unsigned char *name;
+      const unsigned char *name;
 
       fontset = FONTSET_FROM_ID (id);
       if (NILP (fontset)