From 7e7ea4cb3dfa0b87b5666a2b13c22b2e517abb16 Mon Sep 17 00:00:00 2001
From: courtieu
Date: Fri, 23 Jul 2010 20:42:56 +0000
Subject: Fix a bug found by S.Glondu. coq-db.el did not compile.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13319 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tools/coq-db.el | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'tools')

diff --git a/tools/coq-db.el b/tools/coq-db.el
index 078c2bb6be..5081b10b6c 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