From dacc955ce6fc94400b19004a8594b893271be531 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 9 Jun 1997 18:00:36 +0000 Subject: [PATCH] (list_fontsets, fs_load_font): fast_c_string_match_ignore_case renamed. --- src/fontset.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/fontset.c b/src/fontset.c index b0a6ed1fa8a..16fbf352887 100644 --- a/src/fontset.c +++ b/src/fontset.c @@ -205,7 +205,7 @@ fs_load_font (f, font_table, charset, fontname, fontset) elt = XCONS (list)->car; if (CONSP (elt) && STRINGP (XCONS (elt)->car) && CONSP (XCONS (elt)->cdr) - && (fast_string_match_ignore_case (XCONS (elt)->car, fontname) + && (fast_c_string_match_ignore_case (XCONS (elt)->car, fontname) >= 0)) { Lisp_Object tmp; @@ -228,7 +228,7 @@ fs_load_font (f, font_table, charset, fontname, fontset) elt = XCONS (list)->car; if (CONSP (elt) && STRINGP (XCONS (elt)->car) && VECTORP (XCONS (elt)->cdr) - && fast_string_match_ignore_case (XCONS (elt)->car, fontname) >= 0) + && fast_c_string_match_ignore_case (XCONS (elt)->car, fontname) >= 0) { fontp->font_encoder = (struct ccl_program *) xmalloc (sizeof (struct ccl_program)); @@ -465,8 +465,8 @@ just like X's font name matching algorithm allows.") Lisp_Object fontset_name = XCONS (XCONS (tem)->car)->car; if (!NILP (regexp)) { - if (fast_string_match_ignore_case (regexp, - XSTRING (fontset_name)->data) + if (fast_c_string_match_ignore_case (regexp, + XSTRING (fontset_name)->data) >= 0) return fontset_name; } @@ -507,7 +507,7 @@ list_fontsets (f, pattern, size) if (!NILP (regexp)) { - if (fast_string_match_ignore_case (regexp, fontsetp->name) >= 0) + if (fast_c_string_match_ignore_case (regexp, fontsetp->name) >= 0) name_matched = 1; } else -- 2.39.2