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 ++++
 1 file changed, 4 insertions(+)

(limited to 'kernel/names.ml')

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;
-- 
cgit v1.2.3