From: Kenichi Handa <handa@m17n.org>
Date: Wed, 26 Jul 2006 01:16:27 +0000 (+0000)
Subject: (Qfont_backend): New variable.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~803
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a3565711488591bac0e6fd1b5626d20e14effa6;p=emacs.git

(Qfont_backend): New variable.
(frame_parms): New element for font-backend.
(x_set_font_backend): New function.
---

diff --git a/src/frame.c b/src/frame.c
index 1f8c173b9db..6d1df70955f 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -112,6 +112,9 @@ Lisp_Object Qbuffer_predicate, Qbuffer_list;
 Lisp_Object Qtty_color_mode;
 
 Lisp_Object Qfullscreen, Qfullwidth, Qfullheight, Qfullboth;
+#ifdef USE_FONT_BACKEND
+Lisp_Object Qfont_backend;
+#endif	/* USE_FONT_BACKEND */
 
 Lisp_Object Qface_set_after_frame_default;
 
@@ -2587,6 +2590,9 @@ static struct frame_parm_table frame_parms[] =
   {"right-fringe",		&Qright_fringe},
   {"wait-for-wm",		&Qwait_for_wm},
   {"fullscreen",                &Qfullscreen},
+#ifdef USE_FONT_BACKEND
+  {"font-backend",		&Qfont_backend}
+#endif	/* USE_FONT_BACKEND */
 };
 
 #ifdef HAVE_WINDOW_SYSTEM
@@ -3167,6 +3173,39 @@ x_set_font (f, arg, oldval)
 }
 
 
+#ifdef USE_FONT_BACKEND
+void
+x_set_font_backend (f, new_value, old_value)
+     struct frame *f;
+     Lisp_Object new_value, old_value;
+{
+  Lisp_Object frame;
+
+  if (! NILP (new_value)
+      && !CONSP (new_value))
+    {
+      char *p0, *p1;
+	
+      CHECK_STRING (new_value);
+      p0 = p1 = SDATA (new_value);
+      new_value = Qnil;
+      while (*p0)
+	{
+	  while (*p1 && *p1 != ',') p1++;
+	  if (p0 < p1)
+	    new_value = Fcons (Fintern (make_string (p0, p1 - p0), Qnil),
+			       new_value);
+	  if (*p1)
+	    p1++;
+	  p0 = p1;
+	}
+    }
+
+  font_update_drivers (f, new_value, FRAME_FONT_OBJECT (f));
+}
+#endif	/* USE_FONT_BACKEND */
+
+
 void
 x_set_fringe_width (f, new_value, old_value)
      struct frame *f;