Fix misuse of toupper in sfnt_parse_style

* src/sfntfont.c: Include c-ctype.h, not ctype.h.
(sfnt_parse_style): Upcase just initial ASCII letters;
that’s good enough here.

(cherry picked from commit 58a44b6ac317c9a17bcdd208e4ec33ff9772429e)

diff --git a/src/sfntfont.c b/src/sfntfont.c
index 8c02c05e7a6d508e26a791660f681dd83c76204e..f21b6c0782fc7ec121974a9d575f94db47819e0f 100644 (file)
--- a/src/sfntfont.c
+++ b/src/sfntfont.c
@@ -20,7 +20,7 @@ along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */
 #include <config.h>
 
 #include <fcntl.h>
-#include <ctype.h>
+#include <c-ctype.h>
 
 #include "lisp.h"
 
@@ -534,12 +534,12 @@ sfnt_parse_style (Lisp_Object style_name, struct sfnt_font_desc *desc)
        }
 
       /* This token is extraneous or was not recognized.  Capitalize
-        the first letter and set it as the adstyle.  */
+        the first letter if it's ASCII lowercase, then set the token as
+        the adstyle.  */
 
       if (strlen (single))
        {
-         if (islower (single[0]))
-           single[0] = toupper (single[0]);
+         single[0] = c_toupper (single[0]);
 
          if (NILP (desc->adstyle))
            desc->adstyle = build_string (single);