From 560c10c5c7874292893b0c6f566534b2ada5378b Mon Sep 17 00:00:00 2001 From: Pierre Courtieu Date: Thu, 17 Sep 2009 14:37:23 +0000 Subject: Added some more syntax keywords. Made admit tactic with its own red culpabilizing face. --- coq/coq-db.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'coq/coq-db.el') 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) -- cgit v1.2.3