(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)
 	    {