From 637ddd320488389781fb3a3de5f5c670c4eaa767 Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Tue, 16 Jul 2002 19:48:21 +0000 Subject: [PATCH] (font_family_registry, fs_query_fontset): (list_fontsets): Use const for pointer to lisp string data. --- src/fontset.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 2.39.5