diff options
| author |  Stephane Glondu <steph@glondu.net> | 2010-07-24 20:01:08 +0200 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2010-07-24 20:01:08 +0200 |
| commit | b9f47391f7f259c24119d1de0a87839e2cc5e80c (patch) | |
| tree | 26dd3d5de63f420384fd84196d3a144af01f6084 /tools/coq-db.el | |
| parent | 5b7eafd0f00a16d78f99a27f5c7d5a0de77dc7e6 (diff) | |
Imported Upstream snapshot 8.3~beta0+13323
Diffstat (limited to 'tools/coq-db.el')
| -rw-r--r-- | tools/coq-db.el | 15 |
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") + |