aboutsummaryrefslogtreecommitdiffstats
path: root/src/ftfont.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/ftfont.c')
-rw-r--r--src/ftfont.c16
1 files changed, 6 insertions, 10 deletions
diff --git a/src/ftfont.c b/src/ftfont.c
index 27165e67428..b99e50ca3ff 100644
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -96,11 +96,11 @@ Lisp_Object ftfont_font_format (FcPattern *, Lisp_Object);
96static struct 96static struct
97{ 97{
98 /* registry name */ 98 /* registry name */
99 char *name; 99 const char *name;
100 /* characters to distinguish the charset from the others */ 100 /* characters to distinguish the charset from the others */
101 int uniquifier[6]; 101 int uniquifier[6];
102 /* additional constraint by language */ 102 /* additional constraint by language */
103 char *lang; 103 const char *lang;
104 /* set on demand */ 104 /* set on demand */
105 FcCharSet *fc_charset; 105 FcCharSet *fc_charset;
106} fc_charset_table[] = 106} fc_charset_table[] =
@@ -691,12 +691,8 @@ ftfont_get_open_type_spec (Lisp_Object otf_spec)
691 return spec; 691 return spec;
692} 692}
693 693
694static FcPattern *ftfont_spec_pattern (Lisp_Object, char *,
695 struct OpenTypeSpec **,
696 char **langname);
697
698static FcPattern * 694static FcPattern *
699ftfont_spec_pattern (Lisp_Object spec, char *otlayout, struct OpenTypeSpec **otspec, char **langname) 695ftfont_spec_pattern (Lisp_Object spec, char *otlayout, struct OpenTypeSpec **otspec, const char **langname)
700{ 696{
701 Lisp_Object tmp, extra; 697 Lisp_Object tmp, extra;
702 FcPattern *pattern = NULL; 698 FcPattern *pattern = NULL;
@@ -866,7 +862,7 @@ ftfont_list (Lisp_Object frame, Lisp_Object spec)
866 char otlayout[15]; /* For "otlayout:XXXX" */ 862 char otlayout[15]; /* For "otlayout:XXXX" */
867 struct OpenTypeSpec *otspec = NULL; 863 struct OpenTypeSpec *otspec = NULL;
868 int spacing = -1; 864 int spacing = -1;
869 char *langname = NULL; 865 const char *langname = NULL;
870 866
871 if (! fc_initialized) 867 if (! fc_initialized)
872 { 868 {
@@ -1057,7 +1053,7 @@ ftfont_match (Lisp_Object frame, Lisp_Object spec)
1057 FcResult result; 1053 FcResult result;
1058 char otlayout[15]; /* For "otlayout:XXXX" */ 1054 char otlayout[15]; /* For "otlayout:XXXX" */
1059 struct OpenTypeSpec *otspec = NULL; 1055 struct OpenTypeSpec *otspec = NULL;
1060 char *langname = NULL; 1056 const char *langname = NULL;
1061 1057
1062 if (! fc_initialized) 1058 if (! fc_initialized)
1063 { 1059 {
@@ -2630,7 +2626,7 @@ ftfont_filter_properties (Lisp_Object font, Lisp_Object alist)
2630 2626
2631 if (strcmp (ftfont_booleans[i], keystr) == 0) 2627 if (strcmp (ftfont_booleans[i], keystr) == 0)
2632 { 2628 {
2633 char *str = SYMBOLP (val) ? SDATA (SYMBOL_NAME (val)) : NULL; 2629 const char *str = SYMBOLP (val) ? SDATA (SYMBOL_NAME (val)) : NULL;
2634 if (INTEGERP (val)) str = XINT (val) != 0 ? "true" : "false"; 2630 if (INTEGERP (val)) str = XINT (val) != 0 ? "true" : "false";
2635 if (str == NULL) str = "true"; 2631 if (str == NULL) str = "true";
2636 2632