From 47e2b3bbf10a391a4131697f202991470c9a68de Mon Sep 17 00:00:00 2001 From: Clément Pit--Claudel Date: Mon, 23 Nov 2015 13:36:10 -0500 Subject: Introduce a coq-question-mark-face Closes #12 --- coq/coq-syntax.el | 38 +++++++++++++++++++------------------- 1 file changed, 19 insertions(+), 19 deletions(-) (limited to 'coq/coq-syntax.el') diff --git a/coq/coq-syntax.el b/coq/coq-syntax.el index 80c7f3bb..3b4ad3cc 100644 --- a/coq/coq-syntax.el +++ b/coq/coq-syntax.el @@ -1090,27 +1090,27 @@ It is used: ;; We define a slightly different set of keywords for response buffer. (defvar coq-response-font-lock-keywords - (append - coq-font-lock-terms - (list - (cons coq-reserved-regexp 'font-lock-type-face) - (cons coq-keywords-regexp 'font-lock-keyword-face) - (cons coq-shell-eager-annotation-start 'proof-warning-face) - (cons coq-error-regexp 'proof-error-face) - (cons (proof-regexp-alt-list-symb (list "In environment" "The term" "has type")) 'proof-error-face) - (cons (proof-regexp-alt-list-symb (list "Set" "Type" "Prop")) 'font-lock-type-face) - (list (concat "[?]" coq-id) 0 'proof-eager-annotation-face);; highlight evars - (list coq-hyp-name-in-goal-or-response-regexp 2 'proof-declaration-name-face) - (list "^\\([^ \n]+\\) \\(is defined\\)" (list 1 'font-lock-function-name-face t))))) + (append + coq-font-lock-terms + (list + (cons coq-reserved-regexp 'font-lock-type-face) + (cons coq-keywords-regexp 'font-lock-keyword-face) + (cons coq-shell-eager-annotation-start 'proof-warning-face) + (cons coq-error-regexp 'proof-error-face) + (cons (proof-regexp-alt-list-symb (list "In environment" "The term" "has type")) 'proof-error-face) + (cons (proof-regexp-alt-list-symb (list "Set" "Type" "Prop")) 'font-lock-type-face) + (list (concat "[?]" coq-id) 0 'coq-question-mark-face) ;; highlight evars and Ltac variables + (list coq-hyp-name-in-goal-or-response-regexp 2 'proof-declaration-name-face) + (list "^\\([^ \n]+\\) \\(is defined\\)" (list 1 'font-lock-function-name-face t))))) (defvar coq-goals-font-lock-keywords - (append - coq-font-lock-terms - (list - (cons coq-reserved-regexp 'font-lock-type-face) - (list (concat "[?]" coq-id) 0 'proof-eager-annotation-face);; highlight evars - (list coq-hyp-name-in-goal-or-response-regexp 2 'proof-declaration-name-face) - (cons (proof-regexp-alt-list-symb (list "Set" "Type" "Prop")) 'font-lock-type-face)))) + (append + coq-font-lock-terms + (list + (cons coq-reserved-regexp 'font-lock-type-face) + (list (concat "[?]" coq-id) 0 'coq-question-mark-face) ;; highlight evars and Ltac variables + (list coq-hyp-name-in-goal-or-response-regexp 2 'proof-declaration-name-face) + (cons (proof-regexp-alt-list-symb (list "Set" "Type" "Prop")) 'font-lock-type-face)))) -- cgit v1.2.3