(Fforward_comment): Handle unmatched two-character comment starters.

1 files changed, 11 insertions, 0 deletions

diff --git a/src/syntax.c b/src/syntax.c
index ed664805ecd..76428999ea1 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -1538,6 +1538,17 @@ between them, return t; otherwise return nil.")
               comstyle = SYNTAX_COMMENT_STYLE (c1);
               from = temp_pos;
             }
+          if (from > stop && SYNTAX_COMSTART_SECOND (c)
+              && (c1 = FETCH_CHAR (temp_pos),
+                  SYNTAX_COMSTART_FIRST (c1))
+              && !char_quoted (temp_pos))
+            {
+              /* We must record the comment style encountered so that
+                 later, we can match only the proper comment begin
+                 sequence of the same style.  */
+              code = Scomment;
+              from = temp_pos;
+            }
 
           if (code == Scomment_fence)
             {