fixed indentation bug: use proof-looking-at (proof-case-fold-search);

1 files changed, 5 insertions, 5 deletions

diff --git a/coq/coq.el b/coq/coq.el
index 92912244..d09479a6 100644
--- a/coq/coq.el
+++ b/coq/coq.el
@@ -343,7 +343,7 @@
 	  (save-excursion (move-to-column (current-indentation))
 			  (cond 
 			   ((eq (char-after (point)) ?|) (+ col 3))
-			   ((looking-at "end") col)
+			   ((proof-looking-at "end") col)
 			   (t (+ col 5)))))	  
 	 ((or (eq (car (car stack)) ?I) (eq (car (car stack)) ?C))
 	  (+ col (if (eq ?| (save-excursion 
@@ -354,16 +354,16 @@
 (defun coq-parse-indent (c stack)
   (cond
    ((eq c ?C)
-    (cond ((looking-at "Case")
+    (cond ((proof-looking-at "Case")
 	   (cons (list ?c (point)) stack))
-	  ((looking-at "CoInductive")
+	  ((proof-looking-at "CoInductive")
 	   (forward-char (length "CoInductive"))
 	   (cons (list c (- (point) (length "CoInductive"))) stack))
 	  (t stack)))
-   ((and (eq c ?e) (looking-at "end") (eq (car (car stack)) ?c))
+   ((and (eq c ?e) (proof-looking-at "end") (eq (car (car stack)) ?c))
     (cdr stack))
 
-   ((and (eq c ?I) (looking-at "Inductive"))
+   ((and (eq c ?I) (proof-looking-at "Inductive"))
     (forward-char (length "Inductive"))
     (cons (list c (- (point) (length "Inductive"))) stack))