From 03c360d0fda0434c6aa51a803b206b2fd06a8d45 Mon Sep 17 00:00:00 2001
From: Pierre Courtieu
Date: Thu, 7 May 2015 08:49:29 +0000
Subject: Fixes #485.

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

diff --git a/coq/coq.el b/coq/coq.el
index 45a0c7c1..4152f207 100644
--- a/coq/coq.el
+++ b/coq/coq.el
@@ -1895,11 +1895,15 @@ This is the Coq incarnation of `proof-tree-find-undo-position'."
 ;; Pre-processing of input string
 ;;
 
+
+(defconst coq--time-prefix "Time "
+  "Coq command prefix for displaying timing information.")
+
 ;; Remark: `action' and `string' are known by `proof-shell-insert-hook'
 (defun coq-preprocessing ()
   (if coq-time-commands
       (with-no-warnings  ;; NB: dynamic scoping of `string'
-        (setq string (concat "Time " string)))))
+        (setq string (concat coq--time-prefix string)))))
 
 (add-hook 'proof-shell-insert-hook 'coq-preprocessing)
 
@@ -2392,9 +2396,10 @@ buffer."
           (coq-find-real-start)
           
           ;; utf8 adaptation is made in coq-get-last-error-location above
-          (goto-char (+ (point) pos))
-          (span-make-self-removing-span (point) (+ (point) lgth)
-                                        'face 'proof-warning-face))))))
+          (let ((time-offset (if coq-time-commands (length coq--time-prefix) 0)))
+            (goto-char (+ (point) pos))
+            (span-make-self-removing-span (point) (+ (point) (- lgth time-offset))
+                                          'face 'proof-warning-face)))))))
 
 (defun coq-highlight-error-hook ()
   (coq-highlight-error t t))
-- 
cgit v1.2.3