From fcf51e91fe9bb2e630b03678271e542ed031b0ac Mon Sep 17 00:00:00 2001
From: Pierre Courtieu
Date: Mon, 7 Nov 2011 14:51:46 +0000
Subject: Fixing syntax.

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

diff --git a/coq/coq.el b/coq/coq.el
index 991f0311..e2795654 100644
--- a/coq/coq.el
+++ b/coq/coq.el
@@ -444,14 +444,6 @@ Lemma foo: forall n,
                  (and (equal prev "") (member (char-before) '(?\{ ?\})))))))
       (forward-char -1)
       (if (looking-at "{") "BeginSubproof" "EndSubproof"))
-     ;; ((and (equal tok "") (equal (char-before) ?\})
-     ;;       (let ((pos (- (point) 1)))
-     ;;         (and (save-excursion
-     ;;                (forward-char -1)
-     ;;                (skip-syntax-backward "s-")
-     ;;                (member (char-before) '(?\. ?\} ?\{)))
-     ;;              (goto-char pos))))
-     ;;  "EndSubproof")
      ((and (equal tok "") (looking-back "|}" (- (point) 2)))
       (goto-char (match-beginning 0)) "|}")
      ((and (equal tok ":=")
@@ -1033,6 +1025,8 @@ This is specific to `coq-mode'."
 (defun coq-mode-config ()
   ;; Coq error messages are thrown off by TAB chars.
   (set (make-local-variable 'indent-tabs-mode) nil)
+  ;; Coq defninition never start by a parenthesis
+  (set (make-local-variable 'open-paren-in-column-0-is-defun-start) nil)
   (setq proof-terminal-string ".")
   (setq proof-script-command-end-regexp coq-script-command-end-regexp)
   (setq proof-script-parse-function 'coq-script-parse-function)
-- 
cgit v1.2.3