aboutsummaryrefslogtreecommitdiffhomepage
path: root/coq/coq-db.el
diff options
context:
space:
mode:
Diffstat (limited to 'coq/coq-db.el')
-rw-r--r--coq/coq-db.el13
1 files changed, 13 insertions, 0 deletions
diff --git a/coq/coq-db.el b/coq/coq-db.el
index 4b8d53cd..8c2b28a7 100644
--- a/coq/coq-db.el
+++ b/coq/coq-db.el
@@ -235,10 +235,23 @@ See `coq-syntax-db' for DB structure."
"Face for names of closing tactics in proof scripts."
:group 'proof-faces)
+;;A new face for tactics which fail when they don't kill the current goal
+(defface coq-cheat-face
+ (proof-face-specs
+ (:background "red") ; pour les fonds clairs
+ (:background "red") ; pour les fond foncés
+ ()) ; pour le noir et blanc
+ "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")
+(defconst coq-cheat-face 'coq-cheat-face
+ "Expression that evaluates to a face.
+Required so that 'proof-solve-tactics-face is a proper facename")
+
(provide 'coq-db)