From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Jul 2002 19:48:21 +0000 (+0000)
Subject: (font_family_registry, fs_query_fontset):
X-Git-Tag: ttn-vms-21-2-B4~14052
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=637ddd320488389781fb3a3de5f5c670c4eaa767;p=emacs.git

(font_family_registry, fs_query_fontset):
(list_fontsets): Use const for pointer to lisp string data.
---

diff --git a/src/fontset.c b/src/fontset.c
index 2f2b221d782..fbf3e09bf0b 100644
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -370,8 +370,8 @@ font_family_registry (fontname, force)
      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 @@ fs_query_fontset (name, regexpp)
   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 @@ list_fontsets (f, pattern, size)
   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)