* 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 8501f23..521c2da 100644 (file)
--- 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 b5496e8..c133a1b 100644 (file)
--- 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 b481c31..c260777 100644 (file)
--- 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 fdc6bc0..7dcdee6 100644 (file)
--- 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 6d0e8d9..afafca8 100644 (file)
--- 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;