diff options
| author | coqbot-app[bot] | 2020-11-12 14:46:58 +0000 |
|---|---|---|
| committer | GitHub | 2020-11-12 14:46:58 +0000 |
| commit | 6d7877829b7265d6c416c17ea3bbacf65f306609 (patch) | |
| tree | 106990d1eb961d61b09f137be6759d663aa13b39 /vernac | |
| parent | 7ba09858a87a6940278c96ae328e44c142842cd9 (diff) | |
| parent | b9f4ed819b36cfa27046743035fa080035db6672 (diff) | |
Merge PR #13351: Fixes #13349: accept Search on subparts of an identifier, not only on subidentifiers of an identifier
Reviewed-by: Zimmi48
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/comSearch.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/vernac/comSearch.ml b/vernac/comSearch.ml index f3b21eb813..af51f4fafb 100644 --- a/vernac/comSearch.ml +++ b/vernac/comSearch.ml @@ -64,7 +64,8 @@ let interp_search_item env sigma = coercions, no compilation of pattern-matching) *) snd (Constrintern.intern_constr_pattern env sigma ~as_type:head pat) in GlobSearchSubPattern (where,head,pat) - | SearchString ((Anywhere,false),s,None) when Id.is_valid s -> + | SearchString ((Anywhere,false),s,None) + when Id.is_valid_ident_part s && String.equal (String.drop_simple_quotes s) s -> GlobSearchString s | SearchString ((where,head),s,sc) -> (try |