From c2eb2fdc71728878b019c1b87ff8cdc5d96bb00c Mon Sep 17 00:00:00 2001
From: Pierre Courtieu
Date: Tue, 7 Apr 2015 09:04:33 +0000
Subject: Fixed highlighting of evars.

---
 coq/coq-syntax.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/coq/coq-syntax.el b/coq/coq-syntax.el
index 14ca9c48..33f5382e 100644
--- a/coq/coq-syntax.el
+++ b/coq/coq-syntax.el
@@ -1076,7 +1076,7 @@ It is used:
      (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 "[?][a-zA-Z0-9]+" 0 'proof-eager-annotation-face);; highlight evars
+     (list (concat "[?]" proof-id) 0 'proof-eager-annotation-face);; highlight evars
      ;; ", " is for multiple hypothesis diplayed in v8.5.
      (cons "^ \\{0,2\\}\\([^\n :(),]\\|, \\)+ *:" 'proof-declaration-name-face)
      (list "^\\([^ \n]+\\) \\(is defined\\)" (list 1 'font-lock-function-name-face t)))))
@@ -1085,7 +1085,7 @@ It is used:
    (append
     coq-font-lock-terms
     (list
-     (list "[?][a-zA-Z0-9]+" 0 'proof-eager-annotation-face);; highlight evars
+     (list (concat "[?]" proof-id) 0 'proof-eager-annotation-face);; highlight evars
      (cons "^ \\{0,2\\}\\([^ \n:()=]\\|, \\)+ *:" 'proof-declaration-name-face)
      (cons (proof-regexp-alt-list-symb (list "Set" "Type" "Prop")) 'font-lock-type-face))))
 
-- 
cgit v1.2.3