# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1219061130 0
# Node ID 1a792d38ec5a22783281e9ac4df7a58037beb636
# Parent  1e0f10eba7547685f0f0a9baf305abbffbae4965
(font_add_log): Add the font properties :script, :lang,
and :otf in the log.

diff -r 1e0f10eba754 -r 1a792d38ec5a src/font.c
--- a/src/font.c	Mon Aug 18 12:04:35 2008 +0000
+++ b/src/font.c	Mon Aug 18 12:05:30 2008 +0000
@@ -4928,7 +4928,28 @@
   if (EQ (Vfont_log, Qt))
     return;
   if (FONTP (arg))
-    arg = Ffont_xlfd_name (arg, Qt);
+    {
+      Lisp_Object tail, elt;
+      Lisp_Object equalstr = build_string ("=");
+
+      val = Ffont_xlfd_name (arg, Qt);
+      for (tail = AREF (arg, FONT_EXTRA_INDEX); CONSP (tail);
+	   tail = XCDR (tail))
+	{
+	  elt = XCAR (tail);
+	  if (EQ (XCAR (elt), QCscript))
+	    val = concat3 (val, SYMBOL_NAME (QCscript),
+			   concat2 (equalstr, SYMBOL_NAME (XCDR (elt))));
+	  else if (EQ (XCAR (elt), QClang))
+	    val = concat3 (val, SYMBOL_NAME (QClang),
+			   concat2 (equalstr, SYMBOL_NAME (XCDR (elt))));
+	  else if (EQ (XCAR (elt), QCotf) && CONSP (XCDR (elt)))
+	    val = concat3 (val, SYMBOL_NAME (QCotf),
+			   concat2 (equalstr,
+				    SYMBOL_NAME (XCAR (XCDR (elt)))));
+	}
+      arg = val;
+    }
   if (FONTP (result))
     {
       val = Ffont_xlfd_name (result, Qt);