summaryrefslogtreecommitdiff
path: root/tools/coq-db.el
diff options
context:
space:
mode:
Diffstat (limited to 'tools/coq-db.el')
-rw-r--r--tools/coq-db.el15
1 files changed, 7 insertions, 8 deletions
diff --git a/tools/coq-db.el b/tools/coq-db.el
index 078c2bb6..5081b10b 100644
--- a/tools/coq-db.el
+++ b/tools/coq-db.el
@@ -216,19 +216,18 @@ See `coq-syntax-db' for DB structure."
"Not documented."
(nth 3 l)) ; fourth argument is nil --> state preserving command
+(defconst coq-solve-tactics-face 'coq-solve-tactics-face
+ "Expression that evaluates to a face.
+Required so that 'proof-solve-tactics-face is a proper facename")
+
;;A new face for tactics which fail when they don't kill the current goal
-(defface coq-solve-tactics-face
- (proof-face-specs
- (:foreground "red" t) ; pour les fonds clairs
- (:foreground "red" t) ; pour les fond foncés
- ()) ; pour le noir et blanc
+(defface coq-solve-tactics-face
+ '((t (:background "red")))
"Face for names of closing tactics in proof scripts."
:group 'proof-faces)
-(defconst coq-solve-tactics-face 'coq-solve-tactics-face
- "Expression that evaluates to a face.
-Required so that 'proof-solve-tactics-face is a proper facename")
+