aboutsummaryrefslogtreecommitdiffhomepage
path: root/ide
diff options
context:
space:
mode:
authorGravatar Paul Steckler <steck@stecksoft.com>2017-06-19 15:13:43 -0400
committerGravatar Paul Steckler <steck@stecksoft.com>2017-06-19 15:13:43 -0400
commitf3d5de99f95400ff4417fe12ea46f48d2f4a8aca (patch)
tree60ec49080de35feea2aabab81f3f69d8cf8470db /ide
parentd7bb51c69b5a274e341b1a6776baa965d98b3177 (diff)
Change CoqIDE-specific to neutral wording
Diffstat (limited to 'ide')
-rw-r--r--ide/ide_slave.ml17
1 files changed, 8 insertions, 9 deletions
diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml
index c0c4131ac..1e7508f1d 100644
--- a/ide/ide_slave.ml
+++ b/ide/ide_slave.ml
@@ -15,9 +15,8 @@ open Printer
(** Ide_slave : an implementation of [Interface], i.e. mainly an interp
function and a rewind function. This specialized loop is triggered
- when the -ideslave option is passed to Coqtop. Currently CoqIDE is
- the only one using this mode, but we try here to be as generic as
- possible, so this may change in the future... *)
+ when the -ideslave option is passed to Coqtop. *)
+
(** Signal handling: we postpone ^C during input and output phases,
but make it directly raise a Sys.Break during evaluation of the request. *)
@@ -93,16 +92,16 @@ let is_undo cmd = match cmd with
| VernacUndo _ | VernacUndoTo _ -> true
| _ -> false
-(** Check whether a command is forbidden by CoqIDE *)
+(** Check whether a command is forbidden in the IDE *)
let coqide_cmd_checks (loc,ast) =
- let user_error s = CErrors.user_err_loc (loc, "CoqIde", str s) in
+ let user_error s = CErrors.user_err_loc (loc, "IDE", str s) in
if is_debug ast then
- user_error "Debug mode not available within CoqIDE";
+ user_error "Debug mode not available in the IDE";
if is_known_option ast then
- Feedback.msg_warning (strbrk"This will not work. Use CoqIDE view menu instead");
+ Feedback.msg_warning (strbrk"Set this option from the IDE menu instead");
if Vernac.is_navigation_vernac ast || is_undo ast then
- Feedback.msg_warning (strbrk "Rather use CoqIDE navigation instead");
+ Feedback.msg_warning (strbrk "Use IDE navigation instead");
if is_query ast then
Feedback.msg_warning (strbrk "Query commands should not be inserted in scripts")
@@ -547,4 +546,4 @@ let () = Coqtop.toploop_init := (fun args ->
let () = Coqtop.toploop_run := loop
-let () = Usage.add_to_usage "coqidetop" " --help-XML-protocol print the documentation of the XML protocol used by CoqIDE\n"
+let () = Usage.add_to_usage "coqidetop" " --help-XML-protocol print documentation of the Coq XML protocol\n"