Mercurial > emacs

comparison src/font.c @ 97538:1a792d38ec5a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font_add_log): Add the font properties :script, :lang, and :otf in the log.
author Kenichi Handa <handa@m17n.org>
date Mon, 18 Aug 2008 12:05:30 +0000
parents 9592c50233ab
children ec399baa25dd
comparison
equal deleted inserted replaced
97537:1e0f10eba754 97538:1a792d38ec5a
4926 font_log_env_checked = 1; 4926 font_log_env_checked = 1;
4927 } 4927 }
4928 if (EQ (Vfont_log, Qt)) 4928 if (EQ (Vfont_log, Qt))
4929 return; 4929 return;
4930 if (FONTP (arg)) 4930 if (FONTP (arg))
4931 arg = Ffont_xlfd_name (arg, Qt); 4931 {
4932 Lisp_Object tail, elt;
4933 Lisp_Object equalstr = build_string ("=");
4934
4935 val = Ffont_xlfd_name (arg, Qt);
4936 for (tail = AREF (arg, FONT_EXTRA_INDEX); CONSP (tail);
4937 tail = XCDR (tail))
4938 {
4939 elt = XCAR (tail);
4940 if (EQ (XCAR (elt), QCscript))
4941 val = concat3 (val, SYMBOL_NAME (QCscript),
4942 concat2 (equalstr, SYMBOL_NAME (XCDR (elt))));
4943 else if (EQ (XCAR (elt), QClang))
4944 val = concat3 (val, SYMBOL_NAME (QClang),
4945 concat2 (equalstr, SYMBOL_NAME (XCDR (elt))));
4946 else if (EQ (XCAR (elt), QCotf) && CONSP (XCDR (elt)))
4947 val = concat3 (val, SYMBOL_NAME (QCotf),
4948 concat2 (equalstr,
4949 SYMBOL_NAME (XCAR (XCDR (elt)))));
4950 }
4951 arg = val;
4952 }
4932 if (FONTP (result)) 4953 if (FONTP (result))
4933 { 4954 {
4934 val = Ffont_xlfd_name (result, Qt); 4955 val = Ffont_xlfd_name (result, Qt);
4935 if (! FONT_SPEC_P (result)) 4956 if (! FONT_SPEC_P (result))
4936 val = concat3 (SYMBOL_NAME (AREF (result, FONT_TYPE_INDEX)), 4957 val = concat3 (SYMBOL_NAME (AREF (result, FONT_TYPE_INDEX)),