diff options
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/coqide.ml | 5 | ||||
| -rw-r--r-- | ide/tags.ml | 1 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 4b08f4b9bd..fb7b92d71a 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -1515,8 +1515,7 @@ object(self) ignore (input_buffer#add_selection_clipboard cb); ignore (proof_buffer#add_selection_clipboard cb); ignore (message_buffer#add_selection_clipboard cb); - let paren_highlight_tag = input_buffer#create_tag ~name:"paren" [`BACKGROUND "purple"] in - self#electric_paren paren_highlight_tag; + self#electric_paren Tags.Script.paren; ignore (input_buffer#connect#after#mark_set ~callback:(fun it (m:Gtk.text_mark) -> !set_location @@ -1528,7 +1527,7 @@ object(self) input_buffer#remove_tag ~start:input_buffer#start_iter ~stop:input_buffer#end_iter - paren_highlight_tag; + Tags.Script.paren; | Some s -> prerr_endline (s^" moved") | None -> () ) diff --git a/ide/tags.ml b/ide/tags.ml index b0b9dc6fb3..826fcd9621 100644 --- a/ide/tags.ml +++ b/ide/tags.ml @@ -30,6 +30,7 @@ struct let found = make_tag table ~name:"found" [`BACKGROUND "blue"; `FOREGROUND "white"] let hidden = make_tag table ~name:"hidden" [`INVISIBLE true; `EDITABLE false] let locked = make_tag table ~name:"locked" [`EDITABLE false; `BACKGROUND "light grey"] + let paren = make_tag table ~name:"paren" [`BACKGROUND "purple"] end module Proof = struct |