diff options
author | Clément Pit--Claudel <clement.pitclaudel@live.com> | 2015-11-23 13:36:10 -0500 |
---|---|---|
committer | Clément Pit--Claudel <clement.pitclaudel@live.com> | 2015-11-23 13:36:10 -0500 |
commit | 47e2b3bbf10a391a4131697f202991470c9a68de (patch) | |
tree | d00e49a1cc27b30e8c221e3e675cf83c87f9eac1 /coq/coq-syntax.el | |
parent | 7155ac935ea4c5cd9bc00cb1382649abdc776f4c (diff) |
Introduce a coq-question-mark-face
Closes #12
Diffstat (limited to 'coq/coq-syntax.el')
-rw-r--r-- | coq/coq-syntax.el | 38 |
1 files changed, 19 insertions, 19 deletions
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)))) |