diff options
| author | courtieu | 2010-07-23 20:42:56 +0000 |
|---|---|---|
| committer | courtieu | 2010-07-23 20:42:56 +0000 |
| commit | 7e7ea4cb3dfa0b87b5666a2b13c22b2e517abb16 (patch) | |
| tree | 3f11783a182ec458381a8fda1f839546b85daa78 | |
| parent | e8a6cf51f9671c92b90cc84473d84526e69173c8 (diff) | |
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
| -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 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") + |