Mercurial > emacs

diff src/w32fns.c @ 34314:8318a4ea6764

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(xlfd_charset_of_font): Fix last change.
author Andrew Innes <andrewi@gnu.org>
date Thu, 07 Dec 2000 10:41:05 +0000
parents 3a21ff35392b
children 51be06b616bf
line wrap: on
line diff
--- a/src/w32fns.c	Thu Dec 07 00:00:11 2000 +0000
+++ b/src/w32fns.c	Thu Dec 07 10:41:05 2000 +0000
@@ -5462,9 +5462,11 @@
   if (!encoding || encoding == fontname)
     return NULL;
 
-  charset = strrchr(encoding - 1, '-');
-
-  if (!charset || strcmp(charset, "-*-*") == 0)
+  for (charset = encoding - 1; charset >= fontname; charset--)
+    if (*charset == '-')
+      break;
+
+  if (charset == fontname || strcmp(charset, "-*-*") == 0)
     return NULL;
 
   return charset + 1;