From 68b82cd171404f0b5ecd5fc699d0931d5a03345c Mon Sep 17 00:00:00 2001 From: Pierre Courtieu Date: Fri, 22 Jul 2016 18:34:09 +0200 Subject: Adding the option to highlight susual symbols. This may look ugly to the majority, so I let it off by default. I find it helpfull to have structuring symbols bold. --- coq/coq-db.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'coq/coq-db.el') diff --git a/coq/coq-db.el b/coq/coq-db.el index 25eee637..0d9c0a6e 100644 --- a/coq/coq-db.el +++ b/coq/coq-db.el @@ -305,6 +305,11 @@ See `coq-syntax-db' for DB structure." "Face for unicode binders, by default a bold version of `font-lock-type-face'." :group 'proof-faces) +(defface coq-symbol-face + '((t :inherit default-face :bold coq-bold-unicode-binders)) + "Face for unicode binders, by default a bold version of `font-lock-type-face'." + :group 'proof-faces) + (defface coq-question-mark-face '((t :inherit font-lock-variable-name-face)) "Face for Ltac binders and evars." @@ -327,6 +332,10 @@ Required so that 'coq-cheat-face is a proper facename") "Expression that evaluates to a face. Required so that 'coq-symbol-binder-face is a proper facename") +(defconst coq-symbol-face 'coq-symbol-face + "Expression that evaluates to a face. +Required so that 'coq-symbol-binder-face is a proper facename") + (defconst coq-question-mark-face 'coq-question-mark-face) -- cgit v1.2.3