diff options
Diffstat (limited to 'src/font.c')
| -rw-r--r-- | src/font.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/font.c b/src/font.c index 7fe0815d80e..f4950d39189 100644 --- a/src/font.c +++ b/src/font.c | |||
| @@ -1795,14 +1795,16 @@ check_otf_features (otf_features) | |||
| 1795 | { | 1795 | { |
| 1796 | CHECK_SYMBOL (Fcar (val)); | 1796 | CHECK_SYMBOL (Fcar (val)); |
| 1797 | if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4) | 1797 | if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4) |
| 1798 | error ("Invalid OTF GSUB feature: %s", SYMBOL_NAME (XCAR (val))); | 1798 | error ("Invalid OTF GSUB feature: %s", |
| 1799 | SDATA (SYMBOL_NAME (XCAR (val)))); | ||
| 1799 | } | 1800 | } |
| 1800 | otf_features = XCDR (otf_features); | 1801 | otf_features = XCDR (otf_features); |
| 1801 | for (val = Fcar (otf_features); ! NILP (val); val = Fcdr (val)) | 1802 | for (val = Fcar (otf_features); ! NILP (val); val = Fcdr (val)) |
| 1802 | { | 1803 | { |
| 1803 | CHECK_SYMBOL (Fcar (val)); | 1804 | CHECK_SYMBOL (Fcar (val)); |
| 1804 | if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4) | 1805 | if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4) |
| 1805 | error ("Invalid OTF GPOS feature: %s", SYMBOL_NAME (XCAR (val))); | 1806 | error ("Invalid OTF GPOS feature: %s", |
| 1807 | SDATA (SYMBOL_NAME (XCAR (val)))); | ||
| 1806 | } | 1808 | } |
| 1807 | } | 1809 | } |
| 1808 | 1810 | ||