diff options
Diffstat (limited to 'src/font.c')
| -rw-r--r-- | src/font.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/font.c b/src/font.c index bbfda984a4d..a57029b4af2 100644 --- a/src/font.c +++ b/src/font.c | |||
| @@ -1827,7 +1827,7 @@ check_otf_features (Lisp_Object otf_features) | |||
| 1827 | otf_features = XCDR (otf_features); | 1827 | otf_features = XCDR (otf_features); |
| 1828 | for (val = Fcar (otf_features); CONSP (val); val = XCDR (val)) | 1828 | for (val = Fcar (otf_features); CONSP (val); val = XCDR (val)) |
| 1829 | { | 1829 | { |
| 1830 | CHECK_SYMBOL (Fcar (val)); | 1830 | CHECK_SYMBOL (XCAR (val)); |
| 1831 | if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4) | 1831 | if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4) |
| 1832 | error ("Invalid OTF GSUB feature: %s", | 1832 | error ("Invalid OTF GSUB feature: %s", |
| 1833 | SDATA (SYMBOL_NAME (XCAR (val)))); | 1833 | SDATA (SYMBOL_NAME (XCAR (val)))); |
| @@ -1835,7 +1835,7 @@ check_otf_features (Lisp_Object otf_features) | |||
| 1835 | otf_features = XCDR (otf_features); | 1835 | otf_features = XCDR (otf_features); |
| 1836 | for (val = Fcar (otf_features); CONSP (val); val = XCDR (val)) | 1836 | for (val = Fcar (otf_features); CONSP (val); val = XCDR (val)) |
| 1837 | { | 1837 | { |
| 1838 | CHECK_SYMBOL (Fcar (val)); | 1838 | CHECK_SYMBOL (XCAR (val)); |
| 1839 | if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4) | 1839 | if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4) |
| 1840 | error ("Invalid OTF GPOS feature: %s", | 1840 | error ("Invalid OTF GPOS feature: %s", |
| 1841 | SDATA (SYMBOL_NAME (XCAR (val)))); | 1841 | SDATA (SYMBOL_NAME (XCAR (val)))); |