From 88b2eb9279bf5f83f27057094de5b696ee9916e3 Mon Sep 17 00:00:00 2001
From: Guillaume Melquiond
Date: Tue, 22 Nov 2016 16:35:15 +0100
Subject: Fix locality of "Hint Resolve <->" (bug #5189).

"Hint Resolve <->" now behaves the same as "Hint Resolve", in that it uses
the same default locality and it accepts locality prefixes.
---
 ltac/extratactics.ml4 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'ltac')

diff --git a/ltac/extratactics.ml4 b/ltac/extratactics.ml4
index 2225650204..1223f6eb4b 100644
--- a/ltac/extratactics.ml4
+++ b/ltac/extratactics.ml4
@@ -319,7 +319,8 @@ let project_hint pri l2r r =
     (info,false,true,Hints.PathAny, Hints.IsGlobRef (Globnames.ConstRef c))
 
 let add_hints_iff l2r lc n bl =
-  Hints.add_hints true bl
+  let l = Locality.LocalityFixme.consume () in
+  Hints.add_hints (Locality.make_module_locality l) bl
     (Hints.HintsResolveEntry (List.map (project_hint n l2r) lc))
 
 VERNAC COMMAND EXTEND HintResolveIffLR CLASSIFIED AS SIDEFF
-- 
cgit v1.2.3