diff options
| author | herbelin | 2003-10-13 08:48:03 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-13 08:48:03 +0000 |
| commit | 97569cb0dbe0abe2303a85f8f97f7d666b649320 (patch) | |
| tree | ebe48be0872723902cc494b88ab70693297b4461 /translate | |
| parent | b6cbbb30f6272f93e8d0c3de4da4165ad079109d (diff) | |
Ajout d'une fonction de recherche sur les composantes du nom des objets
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4608 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/ppvernacnew.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index 4f94658aae..035b6978ad 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -170,6 +170,7 @@ let pr_search a b pr_p = match a with | SearchPattern c -> str"SearchPattern" ++ spc() ++ pr_p c ++ pr_in_out_modules b | SearchRewrite c -> str"SearchRewrite" ++ spc() ++ pr_p c ++ pr_in_out_modules b | SearchAbout qid -> str"SearchAbout" ++ spc() ++ pr_reference qid ++ pr_in_out_modules b + | SearchNamed sl -> str"SearchNamed" ++ spc() ++ prlist_with_sep spc qsnew sl ++ pr_in_out_modules b let pr_locality local = if local then str "Local " else str "" |