(load_command): Prepend "^" in the regular expression.

diff --git a/src/font-flt.c b/src/font-flt.c
index 9f7b723..4a11c0b 100644 (file)
--- a/src/font-flt.c
+++ b/src/font-flt.c
@@ -633,8 +633,14 @@ load_command (FontLayoutStage *stage, MPlist *plist,
          cmd->type = FontLayoutCmdTypeRule;
          if (MPLIST_MTEXT_P (elt))
            {
-             char *str = (char *) MTEXT_DATA (MPLIST_MTEXT (elt));
+             MText *mt = MPLIST_MTEXT (elt);
+             char *str = (char *) MTEXT_DATA (mt);
 
+             if (str[0] != '^')
+               {
+                 mtext_ins_char (mt, 0, '^', 1);
+                 str = (char *) MTEXT_DATA (mt);
+               }
              if (regcomp (&cmd->body.rule.src.re.preg, str, REG_EXTENDED))
                MERROR (MERROR_FONT, INVALID_CMD_ID);
              cmd->body.rule.src_type = SRC_REGEX;