aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorGravatar David Aspinall <da@inf.ed.ac.uk>2010-08-24 13:02:12 +0000
committerGravatar David Aspinall <da@inf.ed.ac.uk>2010-08-24 13:02:12 +0000
commit6ba98422a95a799778378ecf7e34febc6577fa3b (patch)
tree2a287b720320ac8faf26dbf81073e5d4ea62e27e
parent88bef988d16cc4da0033ba2c0e4c9a6573c671dd (diff)
proof-script-command-end-regexp: allow any non-letter after a period
to terminate a command, fixing #296 (and hopefully not messing up other cases).
-rw-r--r--coq/coq.el2
-rw-r--r--etc/trac/trac-296.v3
2 files changed, 4 insertions, 1 deletions
diff --git a/coq/coq.el b/coq/coq.el
index 3817c5a3..3f4fff4c 100644
--- a/coq/coq.el
+++ b/coq/coq.el
@@ -650,7 +650,7 @@ This is specific to `coq-mode'."
(set (make-local-variable 'indent-tabs-mode) nil)
(setq proof-terminal-char ?\.)
(setq proof-script-command-end-regexp
- "\\(?:[^.]\\|\\(?:\\.\\.\\)\\)\\.\\(\\s-\\|\\'\\)")
+ "\\(?:[^.]\\|\\(?:\\.\\.\\)\\)\\.\\(\\s-\\|[^[:alpha:]]\\)")
(setq proof-script-comment-start "(*")
(setq proof-script-comment-end "*)")
(setq proof-unnamed-theorem-name "Unnamed_thm") ; Coq's default name
diff --git a/etc/trac/trac-296.v b/etc/trac/trac-296.v
index ac0e223f..4ac6a676 100644
--- a/etc/trac/trac-296.v
+++ b/etc/trac/trac-296.v
@@ -1,3 +1,6 @@
(* PG accepts this as valid though it isn't;
see http://proofgeneral.inf.ed.ac.uk/trac/ticket/296 *)
Check nat.&!&*\:,.:<*&!)@)$.
+
+(* How should this one parse? *)
+Check 0.99.