]> git.eshelyaron.com Git - emacs.git/commitdiff
* nsfont.m (ns_findfonts): Correctly return fallback in match case.
authorAdrian Robert <Adrian.B.Robert@gmail.com>
Fri, 24 Jul 2009 15:46:56 +0000 (15:46 +0000)
committerAdrian Robert <Adrian.B.Robert@gmail.com>
Fri, 24 Jul 2009 15:46:56 +0000 (15:46 +0000)
src/ChangeLog
src/nsfont.m

index 3295afcfad11acb046258ee5ae21015091c4083e..0d13f9ad9734c2a9647d0fbde11a60b6d00efc10 100644 (file)
@@ -1,3 +1,7 @@
+2009-07-24  Adrian Robert  <Adrian.B.Robert@gmail.com>
+
+       * nsfont.m (ns_findfonts): Correctly return fallback in match case.
+
 2009-07-23  Yavor Doganov  <yavor@gnu.org>
 
        * nsfont.m (NSFontDescriptor.h): Explicitly include under GNUstep.
index 032ea39aef478cb4c6032410c76f35e38b0c81ae..8f90e7a3eba29d3b0e2cc8bf5627bb56c7d2ed4f 100644 (file)
@@ -464,7 +464,7 @@ ns_findfonts (Lisp_Object font_spec, BOOL isMatch)
     /* If has non-unicode registry, give up. */
     tem = AREF (font_spec, FONT_REGISTRY_INDEX);
     if (! NILP (tem) && !EQ (tem, Qiso10646_1) && !EQ (tem, Qunicode_bmp))
-       return isMatch ? ns_fallback_entity () : Qnil;
+       return isMatch ? Fcons (ns_fallback_entity (), list) : Qnil;
 
     cFamilies = ns_get_covering_families (ns_get_req_script (font_spec), 0.90);
 
@@ -502,6 +502,10 @@ ns_findfonts (Lisp_Object font_spec, BOOL isMatch)
                                         "synthItal"), list);
       }
 
+    /* Return something if was a match and nothing found. */
+    if (isMatch && XINT (Flength (list)) == 0)
+      list = Fcons (ns_fallback_entity (), Qnil);
+
     if (NSFONT_TRACE)
        fprintf (stderr, "    Returning %d entities.\n", XINT (Flength (list)));