Small-cap and narrow forms of U+A780 (turned L)

diff --git a/bedstead.c b/bedstead.c
index a0dd82ba3819f39ca7a1e670f39bddf8d3c0fe8b..a7434e1b2580673dfbfda329bc26df9238150926 100644 (file)
--- a/bedstead.c
+++ b/bedstead.c
@@ -2487,7 +2487,12 @@ static struct glyph {
  {"\00\00\37\20\36\20\20\00\00", U(A730) }, /* small cap F */
  {"\00\00\17\20\16\01\36\00\00", U(A731) }, /* small cap S */
  {"\37\01\01\01\01\01\01\00\00", U(A780) }, /* turned L */
+ {"\00\00\37\01\01\01\01\00\00", -1, "uniA780.c2sc" },
+ {"\36\02\02\02\02\02\02\00\00", -1, "uniA780.narrow" },
+ {"\00\00\36\02\02\02\02\00\00", -1, "uniA780.c2sc.narrow" },
  {"\16\04\04\04\04\04\06\00\00", U(A781) }, /* turned l */
+ ALIAS("uniA781.sc", "uniA780.c2sc"),
+ ALIAS("uniA781.sc.narrow", "uniA780.c2sc.narrow"),
  {"\21\21\21\37\01\01\01\00\00", U(A78D) }, /* cap turned h */
  {"\06\11\10\34\10\11\06\00\00", U(A792) }, /* C with bar */
  {"\00\00\06\11\34\11\06\00\00", 0xf1c5, "uniA792.c2sc" },
@@ -2891,7 +2896,9 @@ static struct alt_sub_override {
        V("l.sc", ".narrow") V("Lcaron", ".narrow")             \
        V("Lcaron.c2sc", ".narrow") V("lcaron.sc", ".narrow")   \
        V("Ldot", ".narrow") V("Ldot.c2sc", ".narrow")          \
-       V("ldot.sc", ".narrow") V("uni029F", ".narrow")
+       V("ldot.sc", ".narrow") V("uni029F", ".narrow")         \
+       V("uniA780", ".narrow") V("uniA780.c2sc", ".narrow")    \
+       V("uniA781.sc", ".narrow")
 #define CV61(V) V("ugrave",".roundjoined")
 #define CV64(V) V("grave", ".curly")
 #define CV74(V) V("j", ".serif") V("ij", ".serif")             \