diff options
| author |  Pierre Courtieu <courtieu@lri.fr> | 2009-09-17 14:37:23 +0000 |
|---|---|---|
| committer | Pierre Courtieu <courtieu@lri.fr> | 2009-09-17 14:37:23 +0000 |
| commit | 560c10c5c7874292893b0c6f566534b2ada5378b (patch) | |
| tree | 983ac8ab149182bc2e7486ebf0896c03ee754f21 /coq/coq-db.el | |
| parent | 4d23028e922437dc69919f25649b6f1f7dd67da6 (diff) | |
Added some more syntax keywords. Made admit tactic with its own red
culpabilizing face.
Diffstat (limited to 'coq/coq-db.el')
| -rw-r--r-- | coq/coq-db.el | 13 |
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) |