From b9f47391f7f259c24119d1de0a87839e2cc5e80c Mon Sep 17 00:00:00 2001 From: Stephane Glondu Date: Sat, 24 Jul 2010 20:01:08 +0200 Subject: Imported Upstream snapshot 8.3~beta0+13323 --- tools/coq-db.el | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'tools/coq-db.el') 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") + -- cgit v1.2.3