refactor: remove [Parse_buffer.accept2] (#562)

Author: rgrinberg

lib/emacs.ml

@@ -34,13 +34,14 @@ let by_code f c c' =
 let parse s =
   let buf = Parse_buffer.create s in
   let accept = Parse_buffer.accept buf in
-  let accept2 = Parse_buffer.accept2 buf in
   let eos () = Parse_buffer.eos buf in
   let test2 = Parse_buffer.test2 buf in
   let get () = Parse_buffer.get buf in
   let rec regexp () = regexp' [ branch () ]
   and regexp' left =
-    if accept2 '\\' '|' then regexp' (branch () :: left) else Re.alt (List.rev left)
+    if Parse_buffer.accept_s buf {|\||}
+    then regexp' (branch () :: left)
+    else Re.alt (List.rev left)
   and branch () = branch' []
   and branch' left =
     if eos () || test2 '\\' '|' || test2 '\\' ')'
@@ -69,7 +70,7 @@ let parse s =
       if accept '('
       then (
         let r = regexp () in
-        if not (accept2 '\\' ')') then raise Parse_error;
+        if not (Parse_buffer.accept_s buf {|\)|}) then raise Parse_error;
         Re.group r)
       else if accept '`'
       then Re.bos

lib/parse_buffer.ml

@@ -21,12 +21,6 @@ let accept t c =
   r
 ;;
 
-let accept2 t c c' =
-  let r = test2 t c c' in
-  if r then t.pos <- t.pos + 2;
-  r
-;;
-
 let get t =
   let r = t.str.[t.pos] in
   t.pos <- t.pos + 1;

lib/parse_buffer.mli

@@ -10,6 +10,5 @@ val test : t -> char -> bool
 val test2 : t -> char -> char -> bool
 val get : t -> char
 val accept : t -> char -> bool
-val accept2 : t -> char -> char -> bool
 val accept_s : t -> string -> bool
 val integer : t -> int option