From: Kenichi Handa <handa@m17n.org>
Date: Tue, 18 Dec 2007 02:26:27 +0000 (+0000)
Subject: (Ffont_get): Fix arguments to Fassoc.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~128
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e670e82736c894df09674fbd6b1391c147013093;p=emacs.git

(Ffont_get): Fix arguments to Fassoc.
---

diff --git a/src/font.c b/src/font.c
index f11ef974ccd..27c4c7411ed 100644
--- 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)));
 }