emacs: src/fontset.c comparison

comparison src/fontset.c @ 90440:33277d7748f3

(reorder_font_vector): Pay attention to the case that the 3rd element of font_def is nil. (fontset_font): For the default fontset, append one more fontset elements for a script-based font specification. Don't add script attribute on finding a font. (new_fontset_from_font): Unconditionally set FONTSET_ASCII to the font name. (fontset_ascii_font): If a font can't be opened, return nil.

author	Kenichi Handa <handa@m17n.org>
date	Fri, 09 Jun 2006 02:14:49 +0000
parents	55a58b0d3d9e
children	5956a1352bc4

comparison

equal deleted inserted replaced

-:fb253905e9c3
+:33277d7748f3
 FONT-DEF has this form:
 	[FACE-ID FONT-INDEX [ FONT-SPEC ENCODING REPERTORY ]] */
 for (i = 0; i < size; i++)
 {
 font_def = AREF (fontset_element, i + 3);
-charset_id_table[i] = XINT (AREF (AREF (font_def, 2), 1));
+if (! NILP (AREF (font_def, 2)))
+	charset_id_table[i] = XINT (AREF (AREF (font_def, 2), 1));
+else
+	charset_id_table[i] = -1;
 }
 /* Then, store FONT-DEFs in NEW_VEC in the correct order.  */
 for (idx = 0, list = Vcharset_ordered_list;
 idx < size && CONSP (list); list = XCDR (list))
 {
 for (i = 0; i < size; i++)
 	if (charset_id_table[i] == XINT (XCAR (list)))
 	  new_vec[idx++] = AREF (fontset_element, i + 3);
 }
+for (i = 0; i < size; i++)
+if (charset_id_table[i] < 0)
+new_vec[idx++] = AREF (fontset_element, i + 3);
 /* At last, update FONT-DEFs.  */
 for (i = 0; i < size; i++)
 ASET (fontset_element, i + 3, new_vec[i]);
 }
 	  goto try_fallback;
 	}
 /* Build a vector [ -1 -1 nil NEW-ELT0 NEW-ELT1 NEW-ELT2 ... ],
 	 where the first -1 is to force reordering of NEW-ELTn,
 	 NEW-ETLn is [nil nil AREF (elt, n) nil].  */
+#ifdef USE_FONT_BACKEND
+if (enable_font_backend
+	  && EQ (base_fontset, Vdefault_fontset))
+	vec = Fmake_vector (make_number (ASIZE (elt) + 4), make_number (-1));
+else
+#endif	/* not USE_FONT_BACKEND */
 vec = Fmake_vector (make_number (ASIZE (elt) + 3), make_number (-1));
 ASET (vec, 2, Qnil);
 for (i = 0; i < ASIZE (elt); i++)
 	{
 	  Lisp_Object tmp;
 #endif	/* USE_FONT_BACKEND */
 	  tmp = Fmake_vector (make_number (4), Qnil);
 	  ASET (tmp, 2, AREF (elt, i));
 	  ASET (vec, 3 + i, tmp);
 	}
+#ifdef USE_FONT_BACKEND
+if (enable_font_backend
+	  && EQ (base_fontset, Vdefault_fontset))
+	{
+	  Lisp_Object script, font_spec, tmp;
+	  script = CHAR_TABLE_REF (Vchar_script_table, c);
+	  if (NILP (script))
+	    script = intern ("latin");
+	  font_spec = Ffont_spec (0, NULL);
+	  ASET (font_spec, FONT_REGISTRY_INDEX, Qiso10646_1);
+	  ASET (font_spec, FONT_EXTRA_INDEX,
+		Fcons (Fcons (QCscript, script), Qnil));
+	  tmp = Fmake_vector (make_number (5), Qnil);
+	  ASET (tmp, 3, font_spec);
+	  ASET (vec, 3 + i, tmp);
+	}
+#endif	/* USE_FONT_BACKEND */
 /* Then store it in the fontset.  */
 FONTSET_SET (fontset, range, vec);
 }
 retry:
 	  /* ELT == [ FACE-ID FONT-INDEX FONT-DEF FONT-ENTITY FONT-OBJECT ] */
 	  Lisp_Object font_entity = AREF (elt, 3);
 	  Lisp_Object font_object = AREF (elt, 4);
 	  int has_char;
-	  if (NILP (font_entity))
+	  if (NILP (font_entity) && ! NILP (AREF (font_def, 0)))
 	    {
 	      Lisp_Object tmp = AREF (font_def, 0);
 	      Lisp_Object spec = Ffont_spec (0, NULL);
 	      Lisp_Object script;
 		  Lisp_Object family = AREF (tmp, 0);
 		  Lisp_Object registry = AREF (tmp, 5);;
 		  font_merge_old_spec (Qnil, family, registry, spec);
 		}
-	      script = CHAR_TABLE_REF (Vchar_script_table, c);
-	      if (! NILP (script))
-		ASET (spec, FONT_EXTRA_INDEX,
-		      Fcons (Fcons (QCscript, script), Qnil));
 	      font_entity = font_find_for_lface (f, face->lface, spec);
+	      ASET (elt, 3, font_entity);
+	    }
+	  else if (FONT_SPEC_P (font_entity))
+	    {
+	      font_entity = font_find_for_lface (f, face->lface, font_entity);
 	      ASET (elt, 3, font_entity);
 	    }
 	  if (NILP (font_entity))
 	    {
 	      ASET (elt, 1, make_number (-1));
 {
 Lisp_Object xlfd = Ffont_xlfd_name (font_object);
 int id = new_fontset_from_font_name (xlfd);
 Lisp_Object fontset = FONTSET_FROM_ID (id);
-if (STRINGP (FONTSET_ASCII (fontset)))
+FONTSET_ASCII (fontset) = build_string (font_get_name (font_object));
-FONTSET_ASCII (fontset) = Fcons (FONTSET_ASCII (fontset),
-				     Fcons (font_object, Qnil));
-else
-{
-Lisp_Object val = XCDR (FONTSET_ASCII (fontset));
-for (; ! NILP (val); val = XCDR (val))
-	if (EQ (XCAR (val), font_object))
-	  break;
-if (NILP (val))
-	{
-	  val = FONTSET_ASCII (fontset);
-	  XSETCDR (val, Fcons (font_object, XCDR (val)));
-	}
-}
 return id;
 }
 struct font *
 fontset_ascii_font (f, id)
 else
 {
 font_object = font_open_by_name (f, SDATA (ascii_slot));
 FONTSET_ASCII (fontset) = Fcons (ascii_slot, Fcons (font_object, Qnil));
 }
+if (NILP (font_object))
+return NULL;
 return XSAVE_VALUE (font_object)->pointer;
 }
 #endif	/* USE_FONT_BACKEND */

Mercurial > emacs

comparison src/fontset.c @ 90440:33277d7748f3