From 696b97978668f7d145af98b4163d4f32352b7442 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Wed, 11 Nov 2020 16:24:45 +0100
Subject: Addressing #13349: accept Search on subparts of ident, not only on
 subidents.

---
 kernel/names.ml  | 4 ++++
 kernel/names.mli | 3 +++
 2 files changed, 7 insertions(+)

(limited to 'kernel')

diff --git a/kernel/names.ml b/kernel/names.ml
index 5b6064fa9f..13761ca245 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -44,6 +44,10 @@ struct
   | None -> true
   | Some _ -> false
 
+  let is_valid_ident_part s = match Unicode.ident_refutation ("x"^s) with
+  | None -> true
+  | Some _ -> false
+
   let of_bytes s =
     let s = Bytes.to_string s in
     check_valid s;
diff --git a/kernel/names.mli b/kernel/names.mli
index 9a4ceef802..74a4e6f7d0 100644
--- a/kernel/names.mli
+++ b/kernel/names.mli
@@ -44,6 +44,9 @@ sig
   val is_valid : string -> bool
   (** Check that a string may be converted to an identifier. *)
 
+  val is_valid_ident_part : string -> bool
+  (** Check that a string is a valid part of an identifier *)
+
   val of_bytes : bytes -> t
   val of_string : string -> t
   (** Converts a string into an identifier.
-- 
cgit v1.2.3