(Ffont_get): Fix arguments to Fassoc.

diff --git a/src/font.c b/src/font.c
index f11ef974ccd80e23342e9f4a841dd741833ce860..27c4c7411ed22d9fa879a430e95c6667490522c1 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -3027,7 +3027,7 @@ FONT is a font-spec, a font-entity, or a font-object.  */)
     return AREF (font, idx);
   if (FONT_ENTITY_P (font))
     return Qnil;
-  return Fcdr (Fassoc (AREF (font, FONT_EXTRA_INDEX), key));
+  return Fcdr (Fassoc (key, AREF (font, FONT_EXTRA_INDEX)));
 }