From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 17 Apr 2009 18:38:00 +0000 (+0000)
Subject: * font.c (Qja, Qko): Move definitions here from ftfont.c.
X-Git-Tag: emacs-pretest-23.0.93~102
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf70255861179c4af4309d27600b37a3e7399c45;p=emacs.git

* font.c (Qja, Qko): Move definitions here from ftfont.c.
* font.h (Qja, Qko): Extern them.
* ftfont.c (Qja, Qko): Remove declarations.
* xfont.c (Qja, Qko): Remove declarations.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 8501f230fe5..521c2dae208 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,13 @@
+2009-04-17  Chong Yidong  <cyd@stupidchicken.com>
+
+	* font.c (Qja, Qko): Move definitions here from ftfont.c.
+
+	* font.h (Qja, Qko): Extern them.
+
+	* ftfont.c (Qja, Qko): Remove declarations.
+
+	* xfont.c (Qja, Qko): Remove declarations.
+
 2009-04-17  Kenichi Handa  <handa@m17n.org>
 
 	* editfns.c (Ftranslate_region_internal): Use Fconcat to make a
diff --git a/src/font.c b/src/font.c
index b5496e82300..c133a1b8da8 100644
--- a/src/font.c
+++ b/src/font.c
@@ -143,6 +143,9 @@ Lisp_Object QCspacing, QCdpi, QCscalable, QCotf, QClang, QCscript, QCavgwidth;
 Lisp_Object QCantialias, QCfont_entity, QCfc_unknown_spec;
 /* Symbols representing values of font spacing property.  */
 Lisp_Object Qc, Qm, Qp, Qd;
+/* Special ADSTYLE properties to avoid fonts used for Latin
+   characters; used in xfont.c and ftfont.c.  */
+Lisp_Object Qja, Qko;
 
 Lisp_Object Vfont_encoding_alist;
 
@@ -5135,6 +5138,9 @@ syms_of_font ()
   DEFSYM (Qp, "p");
   DEFSYM (Qd, "d");
 
+  DEFSYM (Qja, "ja");
+  DEFSYM (Qko, "ko");
+
   staticpro (&null_vector);
   null_vector = Fmake_vector (make_number (0), Qnil);
 
diff --git a/src/font.h b/src/font.h
index b481c31a132..c2607774c72 100644
--- a/src/font.h
+++ b/src/font.h
@@ -240,6 +240,9 @@ extern Lisp_Object QCavgwidth, QCfont_entity, QCfc_unknown_spec;
 extern Lisp_Object Qascii_0;
 extern Lisp_Object Qiso8859_1, Qiso10646_1, Qunicode_bmp, Qunicode_sip;
 
+/* Special ADSTYLE properties to avoid fonts used for Latin characters.  */
+extern Lisp_Object Qja, Qko;
+
 /* Structure for a font-spec.  */
 
 struct font_spec
diff --git a/src/ftfont.c b/src/ftfont.c
index fdc6bc03bca..7dcdee61ab4 100644
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -43,9 +43,6 @@ Lisp_Object Qfreetype;
 /* Fontconfig's generic families and their aliases.  */
 static Lisp_Object Qmonospace, Qsans_serif, Qserif, Qmono, Qsans, Qsans__serif;
 
-/* Special ADSTYLE properties to avoid fonts used for Latin characters.  */
-Lisp_Object Qja, Qko;
-
 /* Flag to tell if FcInit is already called or not.  */
 static int fc_initialized;
 
@@ -2229,8 +2226,6 @@ syms_of_ftfont ()
   DEFSYM (Qmono, "mono");
   DEFSYM (Qsans, "sans");
   DEFSYM (Qsans__serif, "sans serif");
-  DEFSYM (Qja, "ja");
-  DEFSYM (Qko, "ko");
 
   staticpro (&freetype_font_cache);
   freetype_font_cache = Fcons (Qt, Qnil);
diff --git a/src/xfont.c b/src/xfont.c
index 6d0e8d91127..afafca89c24 100644
--- a/src/xfont.c
+++ b/src/xfont.c
@@ -792,8 +792,6 @@ xfont_prepare_face (f, face)
   return 0;
 }
 
-extern Lisp_Object Qja, Qko;
-
 static int
 xfont_has_char (font, c)
      Lisp_Object font;