(xbm_scan): Allow C-style comments.

diff --git a/src/xfns.c b/src/xfns.c
index 8cc65c4c4f2bef701e8efbf64e1730f9576cec9b..b3a8129df523e5c1b7d2e546065147fb4ea2e747 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -6329,6 +6329,8 @@ xbm_scan (s, end, sval, ival)
      int *ival;
 {
   int c;
+
+ loop:
   
   /* Skip white space.  */
   while (*s < end && (c = *(*s)++, isspace (c)))
@@ -6391,6 +6393,18 @@ xbm_scan (s, end, sval, ival)
        *s = *s - 1;
       c = XBM_TK_IDENT;
     }
+  else if (c == '/' && **s == '*')
+    {
+      /* C-style comment.  */
+      ++*s;
+      while (**s && (**s != '*' || *(*s + 1) != '/'))
+       ++*s;
+      if (**s)
+       {
+         *s += 2;
+         goto loop;
+       }
+    }
 
   return c;
 }