From f27df397b49d2bb469e513749cade21e5c259926 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Mon, 21 Jul 2014 15:59:51 +0200 Subject: Adding a new "Locate Term" command, distinct from the raw "Locate" command. The new Term version has essentially the same behaviour as the old "Locate", while the new raw searches for all types of objects. Also code merging with the "Locate Ltac". Fixes bug #3380. --- toplevel/vernacentries.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'toplevel') diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 737d1c523..4141f9f56 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1532,8 +1532,10 @@ let vernac_search s r = msg_notice (Search.search_about (List.map (on_snd interp_search_about_item) sl) r) let vernac_locate = function - | LocateTerm (AN qid) -> msg_notice (print_located_qualid qid) - | LocateTerm (ByNotation (_,ntn,sc)) -> + | LocateAny (AN qid) -> msg_notice (print_located_qualid qid) + | LocateTerm (AN qid) -> msg_notice (print_located_term qid) + | LocateAny (ByNotation (_, ntn, sc)) (** TODO : handle Ltac notations *) + | LocateTerm (ByNotation (_, ntn, sc)) -> msg_notice (Notation.locate_notation (Constrextern.without_symbols pr_lglob_constr) ntn sc) -- cgit v1.2.3