* nsfont.m (Qcondensed, Qexpanded): New variables.

(ns_descriptor_to_entity): Restore Qcondensed, Qexpanded setting.
(syms_of_nsfont): Defsym Qcondensed, Qexpanded.

diff --git a/src/ChangeLog b/src/ChangeLog
index dfc2e73..601d194 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2012-11-09  Jan Djärv  <jan.h.d@swipnet.se>
+
+       * nsfont.m (Qcondensed, Qexpanded): New variables.
+       (ns_descriptor_to_entity): Restore Qcondensed, Qexpanded setting.
+       (syms_of_nsfont): Defsym Qcondensed, Qexpanded.
+
 2012-11-09  Dmitry Antipov  <dmantipov@yandex.ru>
 
        Fix recently introduced crash on MS-Windows (Bug#12839).

diff --git a/src/nsfont.m b/src/nsfont.m
index 88dbcfd..2ba38b7 100644 (file)
--- a/src/nsfont.m
+++ b/src/nsfont.m
@@ -48,6 +48,7 @@ Author: Adrian Robert (arobert@cogsci.ucsd.edu)
 extern Lisp_Object Qns;
 extern Lisp_Object Qnormal, Qbold, Qitalic;
 static Lisp_Object Qapple, Qroman, Qmedium;
+static Lisp_Object Qcondensed, Qexpanded;
 extern Lisp_Object Qappend;
 extern float ns_antialias_threshold;
 extern int ns_tmp_flags;
@@ -200,6 +201,9 @@ ns_descriptor_to_entity (NSFontDescriptor *desc,
 /*    FONT_SET_STYLE (font_entity, FONT_SLANT_INDEX,
                    make_number (100 + 100
                         * ns_attribute_fvalue (desc, NSFontSlantTrait)));*/
+    FONT_SET_STYLE (font_entity, FONT_WIDTH_INDEX,
+                    traits & NSFontCondensedTrait ? Qcondensed :
+                    traits & NSFontExpandedTrait ? Qexpanded : Qnormal);
 /*    FONT_SET_STYLE (font_entity, FONT_WIDTH_INDEX,
                    make_number (100 + 100
                         * ns_attribute_fvalue (desc, NSFontWidthTrait)));*/
@@ -1508,6 +1512,8 @@ syms_of_nsfont (void)
 {
   nsfont_driver.type = Qns;
   register_font_driver (&nsfont_driver, NULL);
+  DEFSYM (Qcondensed, "condensed");
+  DEFSYM (Qexpanded, "expanded");
   DEFSYM (Qapple, "apple");
   DEFSYM (Qroman, "roman");
   DEFSYM (Qmedium, "medium");