diff options
| author | pboutill | 2011-11-21 16:58:22 +0000 |
|---|---|---|
| committer | pboutill | 2011-11-21 16:58:22 +0000 |
| commit | 36404268502d43a657c1cdc4bcb7bbdc972b6c56 (patch) | |
| tree | 94a415189fdd0dde13baf13fa4b8958d20b632ed /toplevel | |
| parent | 7eb1e564f9f473589c49c76c29cd2a33e09f1e7c (diff) | |
-user option removal
it is imcompatible with the freedesktop policy that config directory is private.
Feel absolutly free to revert this commit if you think -user should stay
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14713 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/coqinit.ml | 1 | ||||
| -rw-r--r-- | toplevel/coqinit.mli | 1 | ||||
| -rw-r--r-- | toplevel/coqtop.ml | 3 | ||||
| -rw-r--r-- | toplevel/usage.ml | 1 |
4 files changed, 0 insertions, 6 deletions
diff --git a/toplevel/coqinit.ml b/toplevel/coqinit.ml index 7d178ede33..d771228921 100644 --- a/toplevel/coqinit.ml +++ b/toplevel/coqinit.ml @@ -21,7 +21,6 @@ let set_debug () = Flags.debug := true let rcfile = ref (Envars.xdg_config_home/"coqrc") let rcfile_specified = ref false let set_rcfile s = rcfile := s; rcfile_specified := true -let set_rcuser s = rcfile := ("~"^s)^"/.config/coq/coqrc" let load_rc = ref true let no_load_rc () = load_rc := false diff --git a/toplevel/coqinit.mli b/toplevel/coqinit.mli index 7fda9544b0..43b1556d5e 100644 --- a/toplevel/coqinit.mli +++ b/toplevel/coqinit.mli @@ -11,7 +11,6 @@ val set_debug : unit -> unit val set_rcfile : string -> unit -val set_rcuser : string -> unit val no_load_rc : unit -> unit val load_rcfile : unit -> unit diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 6d342b7ca6..76e9c2fef6 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -270,9 +270,6 @@ let parse_args arglist = | "-init-file" :: f :: rem -> set_rcfile f; parse rem | "-init-file" :: [] -> usage () - | "-user" :: u :: rem -> set_rcuser u; parse rem - | "-user" :: [] -> usage () - | "-notactics" :: rem -> warning "Obsolete option \"-notactics\"."; remove_top_ml (); parse rem diff --git a/toplevel/usage.ml b/toplevel/usage.ml index 5126323167..8c9b10786b 100644 --- a/toplevel/usage.ml +++ b/toplevel/usage.ml @@ -53,7 +53,6 @@ let print_usage_channel co command = \n\ \n -q skip loading of rcfile\ \n -init-file f set the rcfile to f\ -\n -user u use the rcfile of user u\ \n -batch batch mode (exits just after arguments parsing)\ \n -boot boot mode (implies -q and -batch)\ \n -emacs tells Coq it is executed under Emacs\ |